Declare Function timeKillEvent Lib "winmm.dll" (ByVal uID As Long) As Long
Declare Function timeSetEvent Lib "winmm.dll" (ByVal uDelay As Long, ByVal uResolution As Long, ByVal lpFunction As Long, ByVal dwUser As Long, ByVal uFlags As Long) As Long
Public FID&
Sub TimeCallback(TimerID%, Msg%, dwUser&, dw1&, dw2&)