devi spostare la picture non lo scroll, a il valore devi prenderlo dalla scroll:

codice:
Private Sub VScroll1_Scroll()
   PictureBox1.Top = VScroll1.Value
End Sub
poi ricordati all'avvio di impostare VScroll1.Max=pictureBox1.Height