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