Generic and nongeneric versions of the CompareTo method for TimeSpan value
Imports System Class Sample Public Shared Sub Main() Try Dim a1 As TimeSpan = New TimeSpan(11, 22, 33, 44), a2 As TimeSpan = New TimeSpan(11, 22, 33, 44) Show(a1, a2, a1.CompareTo(a2), a1.CompareTo(CObj(a2))) Catch e As Exception Console.WriteLine(e) End Try End Sub Public Shared Sub Show(var1 As [Object], var2 As [Object], resultGeneric As Integer, resultNonGeneric As Integer) Console.WriteLine(var1) Console.WriteLine(var2) If resultGeneric = resultNonGeneric Then If resultGeneric < 0 Then Console.WriteLine("less than") ElseIf resultGeneric > 0 Then Console.WriteLine("greater than") Else Console.WriteLine("equal to") End If End If End Sub End Class