Public Function WndProc(ByVal hwnd As Long, _
  ByVal uMsg As Long, _
  ByVal wParam As Long, _
  ByVal lParam As Long) As Long
 
  Dim nValue As Long
  Dim nEvent As Long
  Dim x As Long
  Dim y As Long
 
  ' Alle Messages durchlassen bis auf WM_MOUSEWHEEL!
  If uMsg = WM_MOUSEWHEEL Then
    ' Mausrad wurde gedreht!
    nValue = HiWord(wParam)
    nEvent = LoWord(wParam)
    x = LoWord(lParam)
    y = HiWord(lParam)
 
    With Form1.VScroll1
      If wParam < 0 Then
        ' nach hinten: ScrollDown
        If .Value < .Max Then .Value = .Value + .SmallChange Else .Value = .Max
      Else
        ' nach vorne: ScrollUp
        If .Value > .Min Then .Value = .Value - .SmallChange Else .Value = .Min
      End If
      Exit Function
    End With
  End If
 
  WndProc = CallWindowProc(oldWndProc, hwnd, uMsg, _
     wParam, ByVal lParam)
End Function

_________________________
Professionelle Entwicklerkomponenten
www.tools4vb.de