Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As _
  System.EventArgs) Handles Button1.Click
        ' Stream-Objekt erstellen und Datei zum Lesen öffnen
        Dim oStream As New System.IO.FileStream("C:\Dokumente und" & _
          "Einstellungen\RSOST\Desktop\neue bilder webcam\2lichtquellen.jpg", _
          IO.FileMode.Open)
 
        ' Bitmap-Objekt mit den Daten aus dem Stream füllen
        PictureBox1.Image = New Bitmap(oStream)
 
        ' Stream-Objekt und somit auch die Datei schließen
        oStream.Close()
    End Sub
 
    Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) Handles Button4.Click
        Dim img As Image = Me.PictureBox1.Image 
        Dim ofd As New SaveFileDialog
        If ofd.ShowDialog() = DialogResult.OK Then
            img.Save(ofd.FileName, System.Drawing.Imaging.ImageFormat.Jpeg)
        End If
    End Sub

img.Save(ofd.FileName, System.Drawing.Imaging.ImageFormat.Jpeg