线程和委托：在VB.net里面实现

Public Class Form1
    Delegate Sub testDelegate() '第一步：老板心目中经理的样子
    Dim testThread As New Thread(AddressOf testdelegateSub) '第甲步：定义了一个线程，并且给这个线程找个干活的小弟。
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

    End Sub
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        testThread.Start() ' 万恶的源头，就是他触发了一连串的干活。两个实际干活的小弟，还有一个欺小媚上的死经理
    End Sub
    Private Sub testdelegateSub() '第乙步：定义一个小弟，这个小弟将在一个独立的线程里面干活，累的要死。
        Dim testDelegate1 As New testDelegate(AddressOf testSub) '第二步和第四步：一个活生生经理  并且给这个经理分配了一个小弟（testSub）
        Invoke(testDelegate1) '第五步：大老板命令这个经理干事情。（背地里经理找了其他人做事）
    End Sub
    Private Sub testSub() '第三步 ：这是一个小弟
        For j = 1 To 3000
            Label1.Text = "线程启动，当前循环次数为：" & j
            Thread.CurrentThread.Sleep(1000)
            Me.Refresh()
        Next
    End Sub
End Class