你必须用多线程。因为你当前的线程正在执行查询语句，所以界面不会刷新，你也不会看到任何等待窗口。
成都创新互联从2013年创立，先为义乌等服务建站，义乌等地企业，进行企业商务咨询服务。为义乌企业网站制作PC+手机+微官网三网同步一站式服务解决您的所有建站问题。
如果需要等待T2线程结束，那又何必开启这个线程！！
直接：
Label1.Visible = True
setB()
MsgBox("d")
这不就是执行完setB()，再执行MsgBox("d")，多线程是多余的。
多线程的作用大多数也就用来同时执行多任务而不用等待的。
@echooffechohellonulping127.1/10echoworldpause::输出hello，延迟10秒后，输出world。::将/10，改为/100就延迟100秒。举一反三，你懂得……
#macro pager totalPage curPage=1 showPageNum=10
#if (showPageNum totalPage)
#local showPageNum = totalPage-1br/
/#if
${showPageNum}
/#macro
解释：global、assign、local（macro参数）、list(由list创建的循环变量如：#list a as x)关系
global 全局变量，在所有命名空间可见
assign 当前命名空间可见
local（macro参数） 局部变量，当前宏内可见
循环变量（#list a as x） 当前循环可见
他们之间的关系 循环变量会隐藏局部变量（local创建的或macro参数）
局部变量（local创建的或macro参数）会隐藏assign（创建的变量）
assign（创建的变量）会隐藏global
送你一个延迟函数单位毫秒
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
