线程调用控件，网上没有搜到合适的答案

在线程里调用控件，要实现跨线程调用，还要实现当前线程，即主程序线程可以持续响应，真是麻烦…… 网上搜到的内容无非都是借调Delegate，比如：
Dim Thread1 As New Thread(Addressof fun1)
Thread1.Start()

Private Sub fun1()
Dim md As New MethodInvoker(Addressof MainFun) 　
BeginInvoke(md)
End Sub

Private Sub MainFun()
控件操作....
End Sub

可是我怎么试来试去，这样的话，主线程也会终止响应呢……满头大汗……

你用的是05吧

如果是否05你又想省事那就用这种方法.
将窗体CheckForIllegalCrossThreadCalls
设置为false.