Imports System
Imports uCalcSoftware
Public Module Program
   Public Sub Main()
      Dim uc As New uCalc()
      uc.DefineConstant("PI = 3.14159")
      Console.WriteLine(uc.Eval("2 * PI"))
   End Sub
End Module