CodeItBetter Programming Another VB Programming Blog

'System & API - How to Pause the application without using Sleep
Option Explicit
 
Declare Function SetWindowWord Lib "user32" (ByVal hWnd As Long, ByVal nIndex As Long, _
    ByVal wNewWord As Long) As Long
Global Const GWW_HWNDPARENT = (-8)
 
Sub Wait(WaitSeconds As Single)
    Dim StartTime As Single
    StartTime = Timer
    Do While Timer < StartTime + WaitSeconds
        DoEvents
    Loop
End Sub