Imports System
Imports uCalcSoftware
Public Module Program
   Public Sub Main()
      Dim uc As New uCalc()
      Dim uCalcA As New uCalc()
      Dim uCalcB As New uCalc()
      Dim uCalcC As New uCalc()
      
      uCalcA.DefineVariable("MyVar = 'I was cloned from uCalcA'")
      uCalcB.DefineVariable("MyVar = 'I was cloned from uCalcB'")
      uCalcC.DefineVariable("MyVar = 'I was cloned from uCalcC'")
      
      uCalcA.IsDefault = true
      Console.WriteLine(uCalc.DefaultInstance.EvalStr("MyVar"))
      
      uCalcB.IsDefault = true
      Console.WriteLine(uCalc.DefaultInstance.EvalStr("MyVar"))
      
      uCalcC.IsDefault = true
      Console.WriteLine(uCalc.DefaultInstance.EvalStr("MyVar"))
      
      Console.WriteLine("---")
      
      '// Now unsetting uCalc objects as default
      uCalcC.IsDefault = false
      Console.WriteLine(uCalc.DefaultInstance.EvalStr("MyVar"))
      
      uCalcB.IsDefault = false
      Console.WriteLine(uCalc.DefaultInstance.EvalStr("MyVar"))
      
      uCalcA.IsDefault = false
      Console.WriteLine(uCalc.DefaultInstance.EvalStr("MyVar"))
      
      
   End Sub
End Module