Private Sub ScrollX_Scroll(ByVal sender As System.Object, ByVal e As _
  system.Windows.Forms.ScrollEventArgs) Handles ScrollX.Scroll
        Label19.Text = e.NewValue()    'zeigt die verschiebung an.
        PictureBox1.Top = (-1 * e.NewValue())   'dies ist der eigentliche Code, 
        ' zum verschieben
    End Sub