用time控件啊，获取threadstate后，按指定时间间隔规定向界面刷新，线程必须是全局变量
站在用户的角度思考问题，与客户深入沟通，找到淮南网站设计与淮南网站推广的解决方案，凭借多年的经验，让设计与互联网技术结合，创造个性化、用户体验好的作品，建站类型包括：网站设计制作、成都网站制作、企业官网、英文网站、手机端网站、网站推广、域名申请、虚拟空间、企业邮箱。业务覆盖淮南地区。
用一个有退出条件的无限循环的sub也行。
线程开始就触发该过程，用无限循环来刷新状态，线程完成即退出无限循环。局部变量的线程也可以用这种方式。
不过用法要正确，否则会出问题。
这个没法做到。原因
1）当你将方法排入线程池队列后，此方法在有线程池线程变得可用时执行。
2）线程池中某个线程的可用与不可用，是由.net 后台决定，用户程序无法控制的
3）正如你观察到的：线程启动的时间不同，有快有慢，这恰恰说明线程池起作用了：线程池的调度试图让程序响应达到最佳。
你需要两个创建两个程序...
首先在你的主程序的代码里面添加它们:
'main program
public sub restart()
shell app.path "\restart.exe " app.path "你的主程序的名字.exe",vbhide
end
end sub
用于重启的程序,叫做restart.exe
先创建标准exe工程
然后再在右边的工程资源管理器中右键点击form1
在弹出的菜单中选择移除form1
然后点击菜单条上面的添加模块
在新添加的module1里添加它们
'restart program
sub main
shell command
end sub
生成exe到你的主程序所在的目录
这时你便可以在主程序的任意地方添加一行restart来重新启动你的程序了
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
vb.net程序出错后再重启程序，目前我能实现的最好的方法就是
先用shell命令 “生一个儿子”，然后“自己死掉”。
第一句
Shell(Application.StartupPath "\我的程序.exe", vbNormalFocus)
第二句
End
完工！！！
虽然你的想法是在 LoginBtn_Click 事件中将复杂的操作分离出去以减轻UI的负担, 这很好完全没有问题.
但是问题在于 Me.Invoke(dh)这里,若是ChkLogin里面仍然是大规模的操作呢 你的代码就又变成将很复杂的操作扔给了UI, 当然会出现窗体无法拖动的情况了.
解决办法很简单, 很多种. 将ChkLogin()里的操作直接放在DelegateLogin()里面吧 me.invoke仅仅只是做简单的轻量的刷新之类的操作就好了.
希望能帮上你的忙.
