Imports System.Threading Class Example Shared Sub Main() Dim interval As New TimeSpan(0, 0, 2) Console.WriteLine("Sleep for 2 seconds.") Thread.Sleep(interval) Console.WriteLine("Main thread exits.") End Sub End Class