0 Then
         deltaToScrollAmount = 4 * Sgn(lDelta)
      ElseIf Abs(lDelta) &lt; 104 Then
         deltaToScrollAmount = 8 * Sgn(lDelta)
      ElseIf Abs(lDelta) &lt; 128 Then
         deltaToScrollAmount = 32 * Sgn(lDelta)
      Else
         deltaToScrollAmount = 80 * Sgn(lDelta)
      End If
      
   End If
      
End Function

Private Sub Class_Initialize()
   m_eHorizontalMode = ePixelBased
   m_eVerticalMode = ePixelBased
End Sub

Private Sub Class_Terminate()
   
   If Not (m_tmr Is Nothing) Then