Imports System
Imports uCalcSoftware
Public Module Program
   
   Public Sub MyArea(ByVal cb As uCalc.Callback)
      Dim Length = cb.ArgDbl(1) '// Same as cb.Arg(1);
      Dim Width = cb.ArgDbl(2) '// Same as cb.Arg(2);
      cb.Return(Length * Width)
   End Sub
   Public Sub Main()
      Dim uc As New uCalc()
      uc.DefineFunction("Area(x, y)", AddressOf MyArea)
      Console.WriteLine(uc.Eval("Area(3, 4)"))
   End Sub
End Module