Compare two Int64 values
Imports System Class Sample Public Shared Sub Main() Dim e1 As Int64 = 4, e2 As Int64 = -4 Console.WriteLine(e1.CompareTo(e2)) Console.WriteLine(e1.CompareTo(CObj(e2))) End Sub 'Main End Class