Imports SystemClass Sample Public Shared Sub Main() Dim m1 As Version = New Version("2.0"), m2 As New Version("2.0") Console.WriteLine(m1.CompareTo(m2)) Console.WriteLine(m1.CompareTo(CObj(m2))) End Sub 'MainEnd Class