Dừng chương trình trong một khoảng thời gian (mở rộng hàm API Sleep)

Private Declare Function GetTickCount Lib kernel32 () As Long

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