Property Let VerticalMode(ByVal eMode As EMiddleButtonScrollerMode)
   m_eVerticalMode = eMode
End Property

Public Property Get HorizontalMode() As EMiddleButtonScrollerMode
   HorizontalMode = m_eHorizontalMode
End Property
Public Property Let HorizontalMode(ByVal eMode As EMiddleButtonScrollerMode)
   m_eHorizontalMode = eMode
End Property

Public Sub StartMiddleScroll(ByVal hwnd As Long)
   '
   EndMiddleScroll

   If (m_eHorizontalMode = eNone) And (m_eVerticalMode = eNone) Then
      ' nothing to do
 