Vb6 - Pausing a application ..

[spoiledkid]

Pausing a application without using timer control ...

Private Sub Pause(Optional Delay As Integer = 1)
Dim dblWait As Double
    
    Let dblWait = Timer: Do Until Timer < dblWait Or Timer >= dblWait + Delay: DoEvents: Loop
End Sub