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