Generic and nongeneric versions of the CompareTo method for Byte value
Imports System Class Sample Public Shared Sub Main() Try Dim a1 As [Byte] = 1, a2 As [Byte] = 1 Show(a1, a2, a1.CompareTo(a2), a1.CompareTo(CObj(a2))) Catch e As Exception Console.WriteLine(e) End Try End Sub Public Shared Sub Show(var1 As [Object], var2 As [Object], resultGeneric As Integer, resultNonGeneric As Integer) Console.WriteLine(var1) Console.WriteLine(var2) If resultGeneric = resultNonGeneric Then If resultGeneric < 0 Then Console.WriteLine("less than") ElseIf resultGeneric > 0 Then Console.WriteLine("greater than") Else Console.WriteLine("equal to") End If End If End Sub End Class