e 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
Private Declare Function timeKillEvent Lib "winmm.dll" (ByVal uID As Long) As
 Long
Private Const TIME_ONESHOT = 0  '  program timer for single event
Private Const TIME_PERIODIC = 1  '  program for continuous periodic event
Private Const TIMERR_NOERROR = 0                        '/* no error */
Private Const WM_USER = &amp;H400
Priv