Imports System
Imports uCalcSoftware
Public Module Program
   Public Sub Main()
      Dim uc As New uCalc()
      Console.WriteLine(uCalc.DefaultCount)
      
      uc.IsDefault = true
      Console.WriteLine(uCalc.DefaultCount)
      
      Dim ucB As New uCalc()
      ucB.IsDefault = true
      Console.WriteLine(uCalc.DefaultCount)
      
      Dim ucC As New uCalc()
      ucC.IsDefault = true
      Console.WriteLine(uCalc.DefaultCount)
      
      uCalc.DefaultClear()
      Console.WriteLine(uCalc.DefaultCount)
   End Sub
End Module