Data Types VB.Net

Imports System
Class Sample
   Public Shared Sub Main()
      Dim a1 As [Boolean] = True, a2 As [Boolean] = True
      Console.WriteLine(a1.CompareTo(a2))
      Console.WriteLine(a1.CompareTo(CObj(a2)))
   End Sub 'Main
End Class