Protected Overrides Sub OnMouseWheel(ByVal e As _
   System.Windows.Forms.MouseEventArgs)
        MyBase.OnMouseWheel(e)
 
        If e.Delta = 120 Then
 
         ' Hier dein Code wenn abwärts gescrollt wird
 
        End If
 
        If e.Delta = -120 Then
 
         ' Hier dein Code wenn aufwärts gescrollt wird
 
        End If
 
 End Sub

Ich arbeite mit:
Windows 10 Professional 64-bit * Visual Basic 2010 Express