Public Class Form1
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) Handles MyBase.Load
        PictureBox1.Image = Image.FromStream(New IO.FileStream( _
        "C:\Users\Anwender\Pictures\Foto.bmp", IO.FileMode.Open))
    End Sub
 
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) Handles Button1.Click
        bmap = PictureBox1.Image
        bmap.Save("C:\Users\Anwender\Pictures\test.bmp")
    End Sub
End Class