        Exit For
         End If
      Next i
      For i = lIndex To lC - 1
         lPtr = GetProp(m_hWnd, "vbalHiResTmr:Obj" &amp; i + 1)
         SetProp m_hWnd, "vbalHiResTmr:Obj" &amp; i, lPtr
      Next i
   End If
   lC = lC - 1
   SetProp m_hWnd, "vbalHiResTmr:Count", lC
   m_lPtr = 0
End Sub
Private Function CreateMessageWindow() As Boolean
   Load frmMessageWindow
   m_hWnd = frmMessageWindow.hwnd
   m_lOldWndProc = GetWindowLong(m_hWnd, GWL_WNDPROC)
   SetWindowLong frmMessageWindow.hwnd, GWL_WN