26 lines
480 B
Text
26 lines
480 B
Text
Imports System.Threading
|
|
|
|
Module Module1
|
|
Public rnd As New Random
|
|
|
|
Sub Main()
|
|
Dim t1 As New Thread(AddressOf Foo)
|
|
Dim t2 As New Thread(AddressOf Foo)
|
|
Dim t3 As New Thread(AddressOf Foo)
|
|
|
|
t1.Start("Enjoy")
|
|
t2.Start("Rosetta")
|
|
t3.Start("Code")
|
|
|
|
t1.Join()
|
|
t2.Join()
|
|
t3.Join()
|
|
|
|
End Sub
|
|
|
|
Sub Foo(ByVal state As Object)
|
|
Thread.Sleep(rnd.Next(1000))
|
|
Console.WriteLine(state)
|
|
End Sub
|
|
|
|
End Module
|