Compare two Int32 values
Imports System Class Sample Public Shared Sub Main() Dim d1 As Int32 = 3, d2 As Int32 = 3 Console.WriteLine(d1.CompareTo(d2)) Console.WriteLine(d1.CompareTo(CObj(d2))) End Sub 'Main End Class