ELTA:
      If (wParam And &amp;H8000000) Then
         ' Towards the user:
         zDelta = &amp;H8000&amp; - (wParam And &amp;H7FFF0000) \ &amp;H10000
      Else
         ' Away from the user:
         zDelta = -((wParam And &amp;H7FFF0000) \ &amp;H10000)
      End If
      lDelta = (zDelta \ WHEEL_DELTA) * SmallChange(efsVertical) *
       m_lWheelScrollLines
      eBar = efsVertical
      RaiseEvent MouseWheel(eBar, lDelta)
      If Not (lDelta = 0) Then
         Value(eBar) = Value(eBar) + lDelta
    