定时器 不叫延时器

Public Sub DelayTime(LngMilliSecond As Long)
    Dim LngTick As Long
    LngTick = GetTickCount()
    Do
        DoEvents: DoEvents
    Loop Until (GetTickCount() - LngTick) >= LngMilliSecond
End Sub
API
Public Declare Function GetTickCount Lib "kernel32" () As Long

sleep...........