sleep.txt

一部分关于VB编程的小技巧

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