Mega Code Archive
Simple Thread Join
<![CDATA[
Imports System.Threading
Public Class MainClass
Shared Dim A As Thread = New Thread(AddressOf MethodA)
Shared Dim B As Thread = New Thread(AddressOf MethodB)
Shared Dim C As Thread = New Thread(AddressOf MethodC)
Public Shared Sub Main()
A.Name = "A"
A.Start()
B.Name = "B"
B.Start()
C.Name = "C"
C.Start()
End Sub
Shared Sub MethodA()
Dim I As Integer
B.Join()
C.Join()
For I = 0 To 250
System.Console.Write("A")
Next
End Sub
Shared Sub MethodB()
Dim I As Integer
For I = 0 To 250
System.Console.Write("B")
Next
End Sub
Shared Sub MethodC()
Dim I As Integer
For I = 0 To 250
System.Console.Write("C")
Next
End Sub
End Class
]]>