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 = Me.PictureBox1.Image
        bmap.Save(strImgFile)
 
        MessageBox.Show("Bild wurde gespeichert als " & strImgFile, _
            "Bild wurde gespeichert", MessageBoxButtons.OK, _
            MessageBoxIcon.Information)
        'PictureBox1.Image.Save("C:\Test\Bild.bmp")
        'Dim img As Image = Me.PictureBox1.Image
        'img.Save("C:\Test\Bild.bmp", System.Drawing.Imaging.ImageFormat.Jpeg)
    End Sub