VB.NET 等待 延时函数 

Threading.Thread.Sleep(3000)   
 
        Application.DoEvents()



Sleep(3000)也就是说3秒内什么也不能做。
（不知道多线程可以不）。
Windows.Forms.Application.DoEvents()这个函数是是放弃程序的控制权。一般在循环中加入DoEvents，目的是为了给用户一个取消的机会，所以应该有个公用变量作为用户中断标志，并在DoEvents后进行判断，是否退出Do循环。  

Protected   Sub   WaitingSeconds(ByVal   seconds   As   Integer) 
 
                        Dim   tmpNow   As   Date   =   Now 
 
                        While   Now.Subtract(tmpNow).Seconds   <   seconds 
 
                                Windows.Forms.Application.DoEvents() 
 
                        End   While  
 
 End   Sub