Imports System.Threading
public class Test
public Shared Sub Main
Dim thread1 As New Thread(AddressOf method1)
Dim thread2 As New Thread(AddressOf method2)
thread1.Start()
thread2.Start()
End Sub
Private Shared Sub method1()
Dim i As Integer
For i = 1 To 4
Console.WriteLine("Method1: " & i)
Thread.CurrentThread.Sleep(250)
Next
End Sub
Private Shared Sub method2()
Dim i As Integer
For i = 1 To 4
Console.WriteLine("Method2: " & i)
Thread.CurrentThread.Sleep(250)
Next
End Sub
End class
|