Dim aktVal = e.NewValue
        Dim altVal = e.OldValue
        Dim Vorwaerts As Boolean
 
        'Richtung des Scrollvorgangs ermitteln
        If aktVal > altVal Then
            Vorwaerts = True
        Else
            Vorwaerts = False
        End If

Gruss, Yuffie
__________________________________________________________

(VB.NET 2017)