IODIC)
            If (m_lID &lt;&gt; 0) Then
               ' Ok!
               Exit Sub
            Else
               DestroyMessageWindow
            End If
         End If
         ' can't set timer up
         timeEndPeriod m_tTC.wPeriodMin
         m_bBegin = False
      End If
      ' can't get timer
      
   Else
      ' Timer/message window created.
      m_iRefCount = m_iRefCount + 1
   End If
   
End Sub
Public Sub AddObject(ByRef cThis As cHiResTimer)
Dim lC As Long
   lC = GetProp(m_hWnd, "