Public Sub CountSheep()
Dim i As Integer = 1
Do While (True)
Console.Write("Sheep " & i & " Baah")
i = i + 1
Thread.Sleep(6000)
Loop
End Sub
Public Sub UseThread()
Dim t As New Thread(AddressOf CountSheep)
t.Start()
End Sub