Compare two boolean values
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