Imports System.Threading Module Module1 Private Sub CarA() Dim I As Integer For I = 0 To 250 System.Console.Write("Car A" & vbCrLf) 'delay of 150 ms Thread.CurrentThread.Sleep(150) Next End Sub Sub CarB() Dim I As Integer For I = 0 To 250 System.Console.Write("Car B" & vbCrLf) 'delay of 250 ms Thread.CurrentThread.Sleep(250) Next End Sub Sub CarC() Dim I As Integer For I = 0 To 250 System.Console.Write("Car C" & vbCrLf) 'delay of 100 ms Thread.CurrentThread.Sleep(100) Next End Sub Public Sub Main() 'Create threads Dim A As System.Threading.Thread = New Threading.Thread(AddressOf CarA) Dim B As System.Threading.Thread = New Threading.Thread(AddressOf CarB) Dim C As System.Threading.Thread = New Threading.Thread(AddressOf CarC) 'create threads A.Start() B.Start() C.Start() End Sub End Module