_bHasVerticalScroll As Boolean
Private m_eHorizontalMode As EMiddleButtonScrollerMode
Private m_eVerticalMode As EMiddleButtonScrollerMode
Private m_lLastScreenCursor As Long
Private m_lLastVertTime As Long
Private m_lLastHorzTime As Long

Private WithEvents m_tmr As CTimer
Attribute m_tmr.VB_VarHelpID = -1

Private m_frmRefPoint As frmRefPoint

Implements IWindowsHook
Implements ISubclass

Public Property Get VerticalMode() As EMiddleButtonScrollerMode
   VerticalMode = m_eVerticalMode
End Property
Public 