在线程里调用控件，要实现跨线程调用，还要实现当前线程，即主程序线程可以持续响应，真是麻烦…… 网上搜到的内容无非都是借调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.