       If Not (GetAsyncKeyState(vbKeyLButton) = 0) Or _
            Not (GetAsyncKeyState(vbKeyRButton) = 0) Or _
            Not (GetAsyncKeyState(vbKeyMButton) = 0) Then
            EndMiddleScroll
         End If
      Else
         If (GetAsyncKeyState(vbKeyMButton) = 0) Then
            EndMiddleScroll
         End If
      End If
   End If
   
End Function

Private Sub m_tmr_ThatTime()
   If (m_bInMiddleScroll) Then
      MiddleScroll
   Else
      m_tmr.Interval = 0
   End If
End Sub
</pre><p>&#160;<