Imports System
Imports uCalcSoftware
Public Module Program
   Public Sub Main()
      Dim uc As New uCalc()
      '// Default behavior: returns infinity
      Console.WriteLine($"Default: {uc.EvalStr("1/0")}")
      
      '// Enable error raising
      uc.Error.TrapOnDivideByZero = true
      Console.WriteLine($"Error Enabled: {uc.EvalStr("1/0")}")
      
      '// Disable error raising
      uc.Error.TrapOnDivideByZero = false
      Console.WriteLine($"Error Disabled: {uc.EvalStr("1/0")}")
   End Sub
End Module