; Abs(lHorzOffset) And Not (m_eVerticalMode = eNone)
    Then
      If (lVertOffset &gt; 0) Then
         lRes = 102
      Else
         lRes = 104
      End If
   Else
      If (lHorzOffset &gt; 0) Then
         lRes = 103
      Else
         lRes = 101
      End If
   End If
   
   If Not (lRes = m_lLastScreenCursor) Then
      Set Screen.MouseIcon = LoadResPicture(lRes, vbResCursor)
      Screen.MousePointer = 99
      m_lLastScreenCursor = lRes
   End If
   
End Sub

Private Function deltaToScrollAmount