Boolean
Private m_lID As Long
Private m_hWnd As Long
Private m_iRefCount As Long
Private m_lOldWndProc As Long

Private m_lPtr As Long

Public Sub StartTimer()
Dim lR As Long
   
   If Not m_bBegin Then
      lR = timeGetDevCaps(m_tTC, Len(m_tTC))
      If (lR = TIMERR_NOERROR) Then
         m_bBegin = True
         If CreateMessageWindow() Then
            timeBeginPeriod m_tTC.wPeriodMin
            m_lID = timeSetEvent(m_tTC.wPeriodMin, m_tTC.wPeriodMin, AddressOf
             TimerProc, m_hWnd, TIME_PER