Imports System.Threading

Class Class1

'Public Shared Sub Main(ByVal args() As String)
' 'Application.Run(New Form1())
' '' Get the path that stores favorite links.
' Shell("notepad",AppWinStyle.NormalFocus)
'End Sub 'Main

Shared t As Thread
Public Shared Sub Main()
Console.WriteLine("Main thread: Start a second thread.")
' The constructor for the Thread class requires a ThreadStart
' delegate. The Visual Basic AddressOf operator creates this
' delegate for you.
t = New Thread(AddressOf ThreadProc1)

' Start ThreadProc. Note that on a uniprocessor,the new
' thread does not get any processor time until the main thread
' is preempted or yields. Uncomment the Thread.Sleep that
' follows t.Start() to see the difference.
Console.WriteLine("ThreadState:" + CStr(t.ThreadState))
t.Start()
Console.WriteLine("ThreadState:" + CStr(t.ThreadState))
Thread.Sleep(0)
Dim i As Integer
Console.WriteLine("Main thread:---START")
For i = 1 To 4
Console.WriteLine("Main thread: Do some work.")
Threading.Thread.Sleep(0)
Next

Console.WriteLine("Main thread: Call Join(),to wait until ThreadProc ends.")
Console.WriteLine("ThreadState:" + CStr(t.ThreadState))
t.Join()
Console.WriteLine("ThreadState:" + CStr(t.ThreadState))
Console.WriteLine("Main thread: ThreadProc.Join has returned. Press Enter to end program.")
Console.ReadLine()
t = New Thread(AddressOf ThreadProc2)

' Start ThreadProc. Note that on a uniprocessor,the new
' thread does not get any processor time until the main thread
' is preempted or yields. Uncomment the Thread.Sleep that
' follows t.Start() to see the difference.
Console.WriteLine("ThreadState:" + CStr(t.ThreadState))
t.Start()
Console.WriteLine("ThreadState:" + CStr(t.ThreadState))
t.Join()
Console.WriteLine("ThreadState:" + CStr(t.ThreadState))
t = New Thread(AddressOf ThreadProc3)
t.Start()
t.Join()
Console.WriteLine("Main thread: ThreadProc.Join has returned. Press Enter to end program.")
Console.ReadLine()
End Sub

Public Shared Function ThreadProc1() As Integer
Console.WriteLine("ThreadProc1---START")
For i As Integer = 0 To 10
Console.WriteLine(CStr(i))
Next
Console.WriteLine("ThreadProc1---END")
End Function

Public Shared Function ThreadProc2() As Integer
Console.WriteLine("ThreadProc2---START")
For i As Integer = 0 To 10
Console.WriteLine(CStr(i))
Next
Console.WriteLine("ThreadProc2---END")
End Function

Public Shared Function ThreadProc3() As Integer
Console.WriteLine("ThreadProc3---START")
For i As Integer = 0 To 10
Console.WriteLine(CStr(i))
Next
Console.WriteLine("ThreadProc3---END")
End Function

End Class 'MyProcess

控件台输出结果：

Main thread: Start a second thread.
ThreadState:8
ThreadProc1---START
0
1
2
3
4
5
6
7
8
9
10
ThreadProc1---END
ThreadState:0
Main thread:---START
Main thread: Do some work.
Main thread: Do some work.
Main thread: Do some work.
Main thread: Do some work.
Main thread: Call Join(),to wait until ThreadProc ends.
ThreadState:16
ThreadState:16
Main thread: ThreadProc.Join has returned. Press Enter to end program.
ThreadState:8
ThreadState:0
ThreadProc2---START
0
1
2
3
4
5
6
7
8
9
10
ThreadProc2---END
ThreadState:16
ThreadProc3---START
0
1
2
3
4
5
6
7
8
9
10
ThreadProc3---END
Main thread: ThreadProc.Join has returned. Press Enter to end program.

ThreadState:8 =Unstart(没运行)

ThreadState:0=running(线程运行)

ThreadState:16=stoped (线程停止)