首先，你把你那些要运行很久的过程。尽量放在一个过程中。
创新互联建站专注于龙里网站建设服务及定制，我们拥有丰富的企业做网站经验。 热诚为您提供龙里营销型网站建设，龙里网站制作、龙里网页设计、龙里网站官网定制、成都微信小程序服务，打造龙里网络公司原创品牌,更为您提供龙里网站排名全网营销落地服务。
因为线程只能是过程，不能使函数，没有返回值的。
然后，在某个事件下这样写：
**这里我假设你的那个很就的过程叫做 sub aaa()
调用如下：
Dim mythread As New System.Threading.Thread(AddressOf aaa)
mythread.Start()
***********
这样就是定义一个线程，名字叫 mythread，这个线程会运行aaa这个过程。
start 就是让线程运行。
Private Sub setA()
msgbox("")
End Sub
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim t1 As Threading.Thread = New Threading.Thread(AddressOf setA)
t1.start
End Sub
Sub Main()
Dim thr As Thread
For Pi As Integer=0 To 4 //启用5线程
MulParams =Pi vbTab sFile vbTab dFile vbTab 1 vbTab DelN vbTab cr vbTab cg vbTab cb vbTab IndexI
GlobalParamas(pi)=MulParams .Split(vbTab)
thr=New Thread(AddressOf MyMulThreadCaller)
thr.Start() //启动多线程进程
Application.DoEvents
Next
End Sub
