FarPoint.Win.Spread.Model.DefaultSheetDataModel dataModel = new FarPoint.Win.Spread.Model.DefaultSheetDataModel(5, 5);
dataModel.AddCustomName("TWICESUM", new FarPoint.CalcEngine.DoubleExpression(10));
dataModel.SetFormula(1, 1, "TWICESUM");
fpSpread1.ActiveSheet.Models.Data = dataModel;
Dim dataModel As New FarPoint.Win.Spread.Model.DefaultSheetDataModel(10, 10)
dataModel.AddCustomName("TWICESUM", New FarPoint.CalcEngine.DoubleExpression(10))
dataModel.SetFormula(1, 1, "TWICESUM")
FpSpread1.ActiveSheet.Models.Data = dataModel