Imports System
Imports uCalcSoftware
Public Module Program
   
   Public Sub MyAdd(ByVal cb As uCalc.Callback)
      Dim x = cb.Arg(1)
      Dim y = cb.Arg(2)
      cb.Return(x + y)
   End Sub
   Public Sub Main()
      Dim uc As New uCalc()
      '// Link the uCalc function 'Add' to the native 'MyAdd' callback.
      uc.DefineFunction("Add(x, y)", AddressOf MyAdd)
      
      '// Now the native code can be called from an expression.
      Console.WriteLine(uc.Eval("Add(10, 5)"))
   End Sub
End Module