VB – 类似timer暂停功能的函数

Public Declare Function GetTickCount Lib "kernel32" () As Long
Sub Pause(MS As Long)
'pretty simple first I set start as the
' starting time when the function runs
Dim start
start = GetTickCount
'here we wait until the start time plus
' however long I told it to wait is not gr
' eater than the current time
While start + MS > GetTickCount
DoEvents
Wend
'then we exit
End Sub