Skip to content

Instantly share code, notes, and snippets.

@ndthanh

ndthanh/WaitFor.bas

Created Jan 20, 2017
Embed
What would you like to do?
Sub WaitFor(NumOfSeconds As Single)
Dim SngSec As Single
SngSec = Timer + NumOfSeconds
Do While Timer < SngSec
DoEvents
Loop
End Sub
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment