• Home
 · 
• Miscellaneous
 · 
• Wait Module 1.0. An enhanced version of the Sleep API call. Doesn't freeze your application while w

Wait Module 1.0. An enhanced version of the Sleep API call. Doesn't freeze your application while w

Wait Module 1.0. An enhanced version of the Sleep API call. Doesn't freeze your application while waiting and uses the multimedia timer for

API Declarations


'by Buttress Root Software
'
'Programmed by Jonathan Liu
'Copyright ©1999-2371 Buttress Root Software. All rights reserved.

Private Declare Function GetTickCount Lib "kernel32" () As Long




Rate Wait Module 1.0. An enhanced version of the Sleep API call. Doesn't freeze your application while w

• 1
• 2
• 3
• 4
• 5

(1(1 Vote))

Sub Wait(ByVal dblMilliseconds As Double)
Dim dblStart As Double
Dim dblEnd As Double
Dim dblTickCount As Double

dblTickCount = GetTickCount()
dblStart = GetTickCount()
dblEnd = GetTickCount + dblMilliseconds

Do
DoEvents
dblTickCount = GetTickCount()
Loop Until dblTickCount > dblEnd Or dblTickCount < dblStart
End Sub