Private Sub W1_Wheel(ByVal sender As System.Object, _
                ByVal e As AxWheels.__Wheel_WheelEvent) Handles W1.Wheel ' 
                ' Wheel für RGB (ROT)
        Static counter1 As Integer
 
        If W1.WheelStyle = Wheels.WheelStyle.wheelHorizontal = True Then
            If Wheels.Direction.wheelLeft = True Then
                'MIN
                If counter1 > 0 Then
                    counter1 = counter1 - 1
                End If
            ElseIf Wheels.Direction.wheelRight = True Then
                'MAX
                If Counter1 < 255 Then
                    counter1 = counter1 + 1
                End If
            End If
        End If
 
        Wlbl14.Text = counter1  'Label
 
    End Sub

der Hund ist Dir im Sturme treu - der Mensch nicht mal im Winde
\"Kampfhunde\" Liebhaber