Compare two Byte values
Imports System Class Sample Public Shared Sub Main() Dim b1 As [Byte] = 1, b2 As [Byte] = 1 Console.WriteLine(b1.CompareTo(b2)) Console.WriteLine(b1.CompareTo(CObj(b2))) End Sub 'Main End Class