im using this code to scroll my picture but i want scroll value something bigger then this

Code:
Private Sub VScroll1_Change()
Picture1.Top = -VScroll1.Value
End Sub
this code scrolls picture very slowly, which is very time consuming and bad looking. pls help