Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As _
  System.EventArgs) Handles Button2.Click
        Dim strImgFile As String = "c:/test.bmp"
        Dim bmap As Image
        bmap = System.Drawing.Image.FromStream(New IO.FileStream(strImgFile, _
          IO.FileMode.Open))
        bmap.Save(strImgFile)
 
        MessageBox.Show("Bild wurde gespeichert als " & strImgFile, _
            "Bild wurde gespeichert", MessageBoxButtons.OK, _
            MessageBoxIcon.Information)
 
 
    End Sub