Urgent~~Vscrollbar

[enzotam]

Private Sub VScroll1_Change()
    VScroll1.Max = scrollMax
    If VScroll1.Value = 0 Then
        picPV.Top = 600 'PicScale.Top
    Else
        picPV.Top = ((VScroll1.Value) / 20) * -ScaleHeight
    End If
End Sub

i want to set the vscrollbar in the picturebox.
however, it seems ot sth wrong in the code.
the whole picturebox move up when i pulled down the scrollbar..
is the setting correct?