Compare two Single values
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