Dim arg1 As New FarPoint.CalcEngine.DoubleExpression(0.01)
Dim arg2 As New FarPoint.CalcEngine.DoubleExpression(12.0)
Dim arg3 As New FarPoint.CalcEngine.DoubleExpression(-1000.0)
Dim arg4 As New FarPoint.CalcEngine.MissingArgumentExpression
Dim arg5 As New FarPoint.CalcEngine.DoubleExpression(1.0)
Dim args() As FarPoint.CalcEngine.Expression = {arg1, arg2, arg3, arg4, arg5}
Dim expr As New FarPoint.CalcEngine.FunctionExpression(FarPoint.CalcEngine.FunctionInfo.FvFunction, args)
'Spread for Windows Forms
CType(FpSpread1.ActiveSheet.Models.Data, FarPoint.Win.Spread.Model.IExpressionSupport).SetExpression(0, 0, expr)
Dim arg11 As Object = 0.01
Dim arg12 As Object = 12.0
Dim arg13 As Object = -1000.0
Dim arg14 As New FarPoint.CalcEngine.CalcMissingArgument
Dim arg15 As Object = 1.0
Dim args20() As Object = {arg11, arg12, arg13, arg14, arg15}
Dim result As [Object] = FarPoint.CalcEngine.FunctionInfo.FvFunction.Evaluate(args20)
Dim ma As New FarPoint.CalcEngine.MissingArgumentExpression
arg14 = ma.MissingArgumentValue
MessageBox.Show(arg14.ToString())
'Spread for Web Forms
CType(FpSpread1.Sheets(0).DataModel, FarPoint.Web.Spread.Model.IExpressionSupport).SetExpression(0, 0, expr)
Dim arg11 As Object = 0.01
Dim arg12 As Object = 12.0
Dim arg13 As Object = -1000.0
Dim arg14 As New FarPoint.CalcEngine.CalcMissingArgument
Dim arg15 As Object = 1.0
Dim args20() As Object = {arg11, arg12, arg13, arg14, arg15}
Dim result As [Object] = FarPoint.CalcEngine.FunctionInfo.FvFunction.Evaluate(args20)
Dim ma As New FarPoint.CalcEngine.MissingArgumentExpression
arg14 = ma.MissingArgumentValue
TextBox1.Text = arg14.ToString()