"Slider" Control Change

[BrianExcel]

Good morning all,

I have been trying to figure out how to use the slider control so that each time I move the slider to a new "tick" it shows a different picture.

I have the following code employed right now:

Private Sub Slider1_Change()
    Dim slider As Integer

slider = Slider1.Value

Select Case slider
    Case "1"
        ShowImage "imgLogan"
    Case "2"
        ShowImage "imgRiley"
    Case "3"
        ShowImage "imgMommy"
End Select
End Sub

It's working perfectly, except that it requires me to release my mouse button when moving to a new tick before it updates. How can I program so that it updates when the mouse moves to the new tick, instead of when I release the button?

 

[BrianExcel]

Nevermind. I got it. I didn't see there was a "Scroll" command instead of "Click" or "Change." It works with scroll. New code reads:

Private Sub Slider1_Scroll() [COLOR="Red"]<--Change was here[/COLOR]
    Dim slider As Integer

slider = Slider1.Value

Select Case slider
    Case "1"
        ShowImage "imgLogan"
    Case "2"
        ShowImage "imgRiley"
    Case "3"
        ShowImage "imgMommy"
End Select
End Sub