iMsg = MyTimerMessage Then
      lC = GetProp(m_hWnd, "vbalHiResTmr:Count")
      For i = 1 To lC
         lPtr = GetProp(m_hWnd, "vbalHiResTmr:Obj" &amp; i)
         If (lPtr &lt;&gt; 0) Then
            Set cHRT = ObjectFromPtr(lPtr)
            cHRT.FireTimer
         End If
      Next i
   Else
      CallWindowProc m_lOldWndProc, hwnd, iMsg, wParam, lParam
   End If
   
End Function

Private Property Get ObjectFromPtr(ByVal lPtr As Long) As cHiResTimer
Dim oTHis As cHiResTimer
    CopyMemory oTHis, lPtr