VB.NET 等待 延時函數

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