eriod m_tTC.wPeriodMin
         m_bBegin = False
      End If
   End If
End Sub
Public Function TimerProc( _
      ByVal wTimerID As Long, ByVal iMsg As Long, _
      ByVal dwUser As Long, ByVal dw1 As Long, ByVal dw2 As Long _
   ) As Long
   
   ' Note 1:
   ' The only functions you are allowed to call
   ' during a High-resolution timer event are
   ' PostMessage, timeGetSystemTime, timeGetTime,
   ' timeSetEvent, timeKillEvent,
   ' midiOutShortMsg, midiOutLongMsg,
   ' and OutputDebugString.
   
   ' T