VB.Net/Thread/Thread Resume
Resume a Thread
<source lang="vbnet"> Imports System Imports System.Drawing Imports System.Threading Imports System.Windows.Forms Imports System.IO
public class MainClass
Shared Sub Main() Dim Thrd As Thread Dim TStart As New ThreadStart(AddressOf BusyThread) Thrd = New Thread(TStart) Thrd.Priority = ThreadPriority.Highest Thrd.Start() Console.WriteLine(Thrd.ThreadState.ToString("G")) Thrd.Suspend() Console.WriteLine(Thrd.ThreadState.ToString("G")) Thrd.Resume() Console.WriteLine(Thrd.ThreadState.ToString("G")) End Sub Shared Sub BusyThread() While True "Console.Write("thread ") End While End Sub
End Class
</source>