使用api
成都创新互联公司主营察隅网站建设的网络公司,主营网站建设方案,成都App定制开发,察隅h5小程序开发搭建,察隅网站营销推广欢迎察隅等地区企业咨询
Private Declare Function TerminateThread Lib "kernel32" (ByVal hThread As Long, ByVal dwExitCode As Long) As Long
如果需要等待T2线程结束，那又何必开启这个线程！！
直接：
Label1.Visible = True
setB()
MsgBox("d")
这不就是执行完setB()，再执行MsgBox("d")，多线程是多余的。
多线程的作用大多数也就用来同时执行多任务而不用等待的。
用time控件啊，获取threadstate后，按指定时间间隔规定向界面刷新，线程必须是全局变量
用一个有退出条件的无限循环的sub也行。
线程开始就触发该过程，用无限循环来刷新状态，线程完成即退出无限循环。局部变量的线程也可以用这种方式。
不过用法要正确，否则会出问题。
指导意见：
你好，不要盲目服用，建议结合当地临床医生和自身状态积极对症治疗，不要盲目的用药治疗！祝你健康