Imports System
Imports uCalcSoftware
Public Module Program
   Public Sub Main()
      Dim uc As New uCalc()
      Dim x = uc.DefineVariable("x = 123")
      Dim y = uc.DefineVariable("y")
      
      y.ValueByPtr(x.ValueAddr())
      
      Console.WriteLine(uc.Eval("x"))
      Console.WriteLine(uc.Eval("y"))
   End Sub
End Module