Compare two TimeSpan values
Imports System Class Sample Public Shared Sub Main() Dim l1 As TimeSpan = New TimeSpan(), l2 As TimeSpan = New TimeSpan() Console.WriteLine(l1.CompareTo(l2)) Console.WriteLine(l1.CompareTo(CObj(l2))) End Sub 'Main End Class