Pause your app

This will delay/pause your application for a given time. The delay is in milliseconds.

Public Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)

Public Sub Pause(ByVal seconds As Single)
Call Sleep(Int(seconds * 1000#))
End Sub