Imports System
Imports uCalcSoftware
Public Module Program
   Public Sub Main()
      Dim uc As New uCalc()
      '// Define a format that only applies to Double data types.
      Dim doubleType = uc.DataTypeOf("Double")
      Dim fmt = uc.Format("Result = 'Value: ' + Result", doubleType)
      
      Console.WriteLine(uc.EvalStr("10 * 2.5"))
      Console.WriteLine(uc.EvalStr("'Hello'")) '// String output is unaffected.
      
      '// Clean up the format rule
      fmt.Release()
      Console.WriteLine(uc.EvalStr("10 * 2.5")) '// No longer formatted
   End Sub
End Module