Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) Handles Button1.Click
 
        ' Bild laden
 
        Dim fs As System.IO.FileStream
        ' Specify a valid picture file path on your computer.
        fs = New System.IO.FileStream("C:\Download\Mama.jpg", IO.FileMode.Open, _
          IO.FileAccess.Read)
 
        Dim Bild As System.Drawing.Image
        Bild = System.Drawing.Image.FromStream(fs, True)
        Me.Pic_Bild.Image = Bild
 
        Bild.Save("C:\Download\Test.jpg", _
          System.Drawing.Imaging.ImageFormat.Jpeg)
        fs.Close()
 
 
 
    End Sub
 
    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) Handles Button2.Click
 
        'Bild speichern
 
        If File.Exists("C:\Download\Mama.jpg") Then
            File.Delete("C:\Download\Mama.jpg")
        End If
 
        Rename("C:\Download\Test.jpg", "C:\Download\Mama.jpg")
 
    End Sub

Hänk

(Wer früh aufsteht hat mehr vom Tag)