你必须用多线程。因为你当前的线程正在执行查询语句，所以界面不会刷新，你也不会看到任何等待窗口。
为泸溪等地区用户提供了全套网页设计制作服务，及泸溪网站建设行业解决方案。主营业务为做网站、网站制作、泸溪网站设计，以传统方式定制建设网站，并提供域名空间备案等一条龙服务，秉承以专业、用心的态度为用户提供真诚的服务。我们深信只要达到每一位用户的要求，就会得到认可，从而选择与我们长期合作。这样，我们也可以走得更远！
如果需要等待T2线程结束，那又何必开启这个线程！！
直接：
Label1.Visible = True
setB()
MsgBox("d")
这不就是执行完setB()，再执行MsgBox("d")，多线程是多余的。
多线程的作用大多数也就用来同时执行多任务而不用等待的。
@echooffechohellonulping127.1/10echoworldpause::输出hello，延迟10秒后，输出world。::将/10，改为/100就延迟100秒。举一反三，你懂得……