13518219792
如果需要等待T2线程结束，那又何必开启这个线程！！
公司主营业务：成都做网站、成都网站建设、移动网站开发等业务。帮助企业客户真正实现互联网宣传，提高企业的竞争能力。成都创新互联公司是一支青春激扬、勤奋敬业、活力青春激扬、勤奋敬业、活力澎湃、和谐高效的团队。公司秉承以“开放、自由、严谨、自律”为核心的企业文化，感谢他们对我们的高要求，感谢他们从不同领域给我们带来的挑战，让我们激情的团队有机会用头脑与智慧不断的给客户带来惊喜。成都创新互联公司推出东区免费做网站回馈大家。
直接：
Label1.Visible = True
setB()
MsgBox("d")
这不就是执行完setB()，再执行MsgBox("d")，多线程是多余的。
多线程的作用大多数也就用来同时执行多任务而不用等待的。
@echooffechohellonulping127.1/10echoworldpause::输出hello，延迟10秒后，输出world。::将/10，改为/100就延迟100秒。举一反三，你懂得……
run需要一个action方法。
这个方法用于用后台进程执行占用大量CPU的工作，你的for代码段应该写在里面。
我没用过这个，粗略看了一下资料，实际情况与他的实例不太一样，Dim a As Task(of Boolean)=Await Doo()，直接提示错误，正确用法是去掉await。
解决以上两个问题，测试运行通过。（一个文本框滚数字，另一个打字无压力）
其实你的要求，不需要这么高级。多线程应该可以。
你必须用多线程。因为你当前的线程正在执行查询语句，所以界面不会刷新，你也不会看到任何等待窗口。
送你一个延迟函数单位毫秒
Public Sub delay(ByRef Interval As Double)
On Error Resume Next
Dim time As DateTime = DateTime.Now
Dim Span As Double = Interval * 10000000 '因为时间是以100纳秒为单位。
While ((DateTime.Now.Ticks - time.Ticks) Span)
Application.DoEvents()
End While
End Sub
