Data Types VB.Net

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