Compare two Double values
Imports System Class Sample Public Shared Sub Main() Dim h1 As [Double] = 7.7, h2 As [Double] = -7.7 Console.WriteLine(h1.CompareTo(h2)) Console.WriteLine(h1.CompareTo(CObj(h2))) End Sub 'Main End Class