实际上VB已经先显示出“请等待5秒”了，只是CPU把所有时间都浪费在了Do-Loop语句中，没有时间把这句话刷新到窗体界面中去，整个程序看上去会像死机了一样。你可以在Do-Loop循环中加入DoEvent语句，让CPU腾出时间去做其它任务（其中就包含刷新窗体显示的任务）。Do While Timer < s DoEvents '请增加这句话。Loop
