Busy Slider

Krool, I have found a small issue in the slider.
It fires the scroll event 2 times when clicked.
The 'original' control doesn't show this beahvior.

To retrace:
Place a Slider1 on a form (range 1 to 4).
Place a label "lbl_1" (caption "0").
In Slider1_Scroll, lbl_1.Caption = CStr(CInt(lbl_1.Caption) + 1)

Scroll by mousewheel and see how the label increases by 1 on every scroll action.
But click the slider and see how the label increases by 2.

Karl