跨线程访问控件，委托，vb.net

新手学习，共同进步。

一、先上代码

Imports System.Threading.Thread
Public Delegate Sub testDelegate(ByVal text1 As String)   '声明委托类
Public Class Form1
    Private Sub AppendText(ByVal text1 As String)         '声明一个方法，给文本框添加内容 ,该方法和委托要匹配（签名一致）
        Me.TextBox1.Text = text1                            'Me可以省略
    End Sub
    Private Sub changeName(ByVal text1 As String)         '声明一个方法，给窗体换名字，该方法也和委托要匹配（签名一致）
        Me.Text = text1
    End Sub
    Private Sub method1(ByVal text2 As String)            '声明线程调用的方法一
        'Me.Invoke(New testDelegate(AddressOf AppendText), 参数)        ’   参数被实参代替      
        Me.Invoke(New testDelegate(AddressOf AppendText), "跨线程在控件文本框中添加内容。")
    End Sub
    Private Sub method2(ByVal text2 As String)