vbalHiResTmr:Count")
   lC = lC + 1
   SetProp m_hWnd, "vbalHiResTmr:Count", lC
   SetProp m_hWnd, "vbalHiResTmr:Obj" &amp; lC, ObjPtr(cThis)
   m_lPtr = ObjPtr(cThis)
End Sub
Public Sub RemoveObject(ByRef cThis As cHiResTimer)
Dim lC As Long
Dim i As Long
Dim lPtr As Long
Dim lIndex As Long

   lC = GetProp(m_hWnd, "vbalHiResTmr:Count")
   If (lC &gt; 1) Then
      For i = 1 To lC
         lPtr = GetProp(m_hWnd, "vbalHiResTmr:Obj" &amp; i)
         If (lPtr = ObjPtr(cThis)) Then
            lIndex = i
    