Dim zähler1 As Integer
       Private Sub Wheel1_Wheel(ByVal sender As Object, _
        ByVal e As AxWheels.__Wheel_WheelEvent) Handles Wheel1.Wheel
 
        If Wheel1.WheelStyle = Wheels.WheelStyle.wheelHorizontal Then
 
            If Wheel1.Right Then
 
                If zähler1 < 255 Then
 
                    zähler1 = zähler1 + 1
 
                ElseIf Wheel1.WheelStyle = Wheels.WheelStyle.wheelHorizontal _
                  Then
 
                    If Wheel1.Left Then
 
                        If zähler1 > 0 Then
 
                            zähler1 = zähler1 - 1
 
                        End If
 
                    End If
 
                End If
 
            End If
 
        End If
 
        Label1.Text = (zähler1)
 
    End Sub

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