al wParam As Long, ByVal lParam As Long) As Long
   '
   If (iMsg = WM_ACTIVATEAPP) Then
      If (wParam = 0) Then
         EndMiddleScroll
      End If
   End If
   '
End Function

Private Function IWindowsHook_HookProc(ByVal eType As EHTHookTypeConstants,
 ByVal nCode As Long, ByVal wParam As Long, ByVal lParam As Long, bConsume As
 Boolean) As Long
   '
   Dim tP As POINTAPI
   Dim iTmp As Long
   
   GetCursorPos tP
   If (m_bInitial) Then
      'Debug.Print Abs(tP.X - m_tP.X), Abs(tP.Y - m_tP.Y),
    