Dim arg1 As FarPoint.CalcEngine.Expression
Dim arg2 As FarPoint.CalcEngine.Expression
Dim oneplustwo As FarPoint.CalcEngine.Expression
arg1 = New FarPoint.CalcEngine.DoubleExpression(1.0)
arg2 = New FarPoint.CalcEngine.DoubleExpression(2.0)
oneplustwo = New FarPoint.CalcEngine.BinaryOperatorExpression(FarPoint.CalcEngine.BinaryOperatorInfo.AddOperator, arg1, arg2)
'Spread for Windows Forms
CType(FpSpread1.ActiveSheet.Models.Data, FarPoint.Win.Spread.Model.IExpressionSupport).SetExpression(0, 0, oneplustwo)
'Spread for Web Forms
CType(FpSpread1.Sheets(0).DataModel, FarPoint.Web.Spread.Model.IExpressionSupport).SetExpression(0, 0, oneplustwo)