新线程在执行模块程序，怎么委托主线程刷新UI？
public 新线程 as threading.thread
public delegate sub 委托(byref I as int32)
public 按钮名 as string
sub form1_locad(....)...
新线程 = new threading.thread(addressof 模块程序)
新线程.start()
end sub
sub 模块程序()
按钮名 = "按钮名"
按钮1.text = 按钮名
'怎么让控件的名字刷新，我试过委托主线程但是报错看图
新线程.abort
end sub

invoke或者beinginvoke

虽然在模块中还是不行，不过我把要刷新UI的程序都移到了form1类下，不仅实现了多线程UI刷新，还解决了之前遇到的所有问题。

Private Sub btn1_Click(sender As Object, e As EventArgs) Handles btn1.Click
Dim old As String = Me.Text
Me.Text = old & "What's your problem!"
Dim t1 As Task = New Task(Sub()
Threading.Thread.Sleep(5000)
Me.Invoke(New Action(Sub()
Me.Text = old
End Sub))
End Sub)
t1.Start()
End Sub

代码调不了格式