In design mode, set the LargeChange property of the VSCroll1 to 750 and the SmallChange property to 500. Then your code should look like this:


Private Sub VSCroll1_Change()
Picture2.Top = -VSCroll1.Value
End Sub


Give that a try!