public class Test public Shared Sub Main Dim ts1, ts2 As TimeSpan ts1 = New TimeSpan(1, 2, 3) ts2 = New TimeSpan(ts1.Ticks * 12) Console.WriteLine(ts1.ToString) Console.WriteLine(ts2.ToString) End Sub End class