VB - Three ways to pause your program

[BrandonTurner]

Sub Sleep(ByVal MillaSec As Long, Optional ByVal DeepSleep As Boolean = False)
    Dim tStart#, Tmr#
    tStart = Timer
 
 
    While Tmr < (MillaSec / 1000)
        Tmr = Timer - tStart
        If DeepSleep = False Then DoEvents
    Wend
End Sub

Declare Function GetTickCount Lib "kernel32" () As Long
 
Sub Pause(HowLong As Long)
    Dim u%, tick As Long
    tick = GetTickCount()
    
    Do
      u% = DoEvents
    Loop Until tick + HowLong < GetTickCount
End Sub

'shortest
Private Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)