tants
Dim zDelta As Long
Dim lDelta As Long
Dim wMKeyFlags As Long

   Select Case iMsg
   Case WM_MOUSEWHEEL
      ' Low-word of wParam indicates whether virtual keys
      ' are down
      wMKeyFlags = wParam And &amp;HFFFF&amp;
      ' High order word is the distance the wheel has been rotated,
      ' in multiples of WHEEL_DELTA:
      If (wParam And &amp;H8000000) Then
         ' Towards the user:
         zDelta = &amp;H8000&amp; - (wParam And &amp;H7FFF0000) \ &amp;H10000
      Else
         ' Away f