  iTmp = GetAsyncKeyState(vbKeyMButton)
      If Abs(tP.X - m_tP.X) &gt; 4 Or Abs(tP.Y - m_tP.Y) &gt; 4 Then
         If Not (GetAsyncKeyState(vbKeyMButton) = 0) Then
            m_eMode = eMiddleButtonRelease
         Else
            m_eMode = eAnyButtonPress
         End If
         m_bInitial = False
      End If
   Else
      If (m_eMode = eAnyButtonPress) Then
         iTmp = GetAsyncKeyState(vbKeyLButton)
         iTmp = GetAsyncKeyState(vbKeyRButton)
         iTmp = GetAsyncKeyState(vbKeyMButton)
  