(ByVal lDelta As Long, ByVal eMode As
 EMiddleButtonScrollerMode, tSI As SCROLLINFO) As Long
   
   If (eMode = ePixelBased) Then
   
      If Abs(lDelta) &lt; 12 Then
         deltaToScrollAmount = 0
      ElseIf Abs(lDelta) &lt; 32 Then
         deltaToScrollAmount = 2 * Sgn(lDelta)
      ElseIf Abs(lDelta) &lt; 56 Then
         deltaToScrollAmount = 4 * Sgn(lDelta)
      ElseIf Abs(lDelta) &lt; 80 Then
         deltaToScrollAmount = 8 * Sgn(lDelta)
      ElseIf Abs(lDelta) &lt; 104 Then
         deltaToS