Module Module1
Sub Main()
Dim int_array As Integer() = {10, 11, 12, 4, 5, 6, 7, 20, 1, 2, 18, 4, 2, 4, 1, 3, 5, 4, 1}
Dim thread_array(int_array.Length) As System.Threading.Thread
For i As Integer = 0 To int_array.Length - 1
Dim j As Integer = int_array(i)
Dim Thread1 As New System.Threading.Thread(AddressOf func)
Thread1.Start(j)
thread_array(i) = Thread1
Next
For i As Integer = 0 To int_array.Length - 1
thread_array(i).Join()
Next
Stop
End Sub
Function func(ByVal i As Integer)
System.Threading.Thread.Sleep(i * 100)
Console.WriteLine(i)
Return i
End Function
End Module