Private isStop As Boolean = False

Dim th As Thread
Public Sub TestThread()
If th IsNot Nothing AndAlso th.IsAlive Then
Return
End If
th = New Thread(AddressOf MyThreadProc)
'启动线程
th.Start()
End Sub

Dim aa As Integer = 1
Public Sub MyThreadProc()
'更新ui资源例子
'实际更新界面
While Not isStop
Me.Invoke(New VoidDelegate(AddressOf UpdateText),"Modified by thread " + aa.ToString)
Application.DoEvents()
aa = aa + 1
System.Threading.Thread.Sleep(5000)
End While
End Sub

'定义委托
Public Delegate Sub VoidDelegate(ByVal text As String)
'定义方法
Public Sub UpdateText(ByVal text As String)
Label1.Text = text '"Modified by thread " + aa.ToString
End Sub

‘启动线程

Private Sub Button3_Click(ByVal sender As System.Object,ByVal e As System.EventArgs) Handles Button3.Click
TestThread()
End Sub

‘终止线程

Private Sub Button4_Click(ByVal sender As System.Object,ByVal e As System.EventArgs) Handles Button4.Click ' isStop = True If th IsNot Nothing AndAlso th.IsAlive Then th.Abort() Me.Invoke(New VoidDelegate(AddressOf UpdateText),"Modified by thread over") End If End Sub