Mega Code Archive
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