sleep.txt

来自「一部分关于VB编程的小技巧」· 文本 代码 · 共 9 行

Sub Sleep(ByVal MillaSec As Long, Optional ByVal Freeze As Boolean = False)
    Dim tStart#, Tmr#
    tStart = Timer

    While Tmr < (MillaSec / 1000)
        Tmr = Timer - tStart
        If Freeze = False Then DoEvents
    Wend
End Sub