Imports System.Threading
Module Module1 Sub Main(ByVal args As String()) Dim ts As TimeSpan ts = New TimeSpan(0, 0, 1.5) Console.WriteLine("Waiting for 1.5 seconds...") Thread.Sleep(ts) 'Pause for duration specified in ts ts = New TimeSpan(0, 0, 4) Console.WriteLine("Waiting for 4 seconds...") Thread.Sleep(ts) 'Pause for duration specified in ts End Sub
End Module