Data Types VB.Net

Imports System
Class Sample
   Public Shared Sub Main()
      Dim g1 As [Single] = 6.6F,     g2 As [Single] = 6.6F
      Console.WriteLine(g1.CompareTo(g2))
      Console.WriteLine(g1.CompareTo(CObj(g2)))
   End Sub 'Main
End Class