VB中不会造成假死的延时

在VB编程中，一般的延时都是用的sleep这个API函数，既
Private Declare Sub Sleep Lib "kernel32" Alias "Sleep" (ByVal dwMilliseconds As Long)
可是若果在编写GUI界面的程序的时候，使用此API延时的时候，会造成程序停止响应，既造成程序假死，不响应windows的请求。
如此，为保证程序将控制权交给电脑，保证假死情况不会出现。我们可以使用以下子程序：

Private Sub Delay(PauseTime As Long)
    Dim Start As Single
    Start = Timer * 1000
    Do While Timer * 1000 < Start + PauseTime
        Sleep (1)
        DoEvents
    Loop
End Sub

如若我们需要延时一秒的时候，就使用Delay 1000，而不是Sleep 1000.
此子程序可以完美解决程序失去相应的问题。

转载于:https://www.cnblogs.com/rogee/archive/2011/02/11/1951705.html