Dim dlg As New SaveFileDialog
        dlg.Filter = "Bitmap (*.bmp)|*.bmp|JPEG (*.jpg)|*.jpg|Png (*.png)|*.png"
        If dlg.ShowDialog() = Windows.Forms.DialogResult.OK Then
            Dim fi As New IO.FileInfo(dlg.FileName)
            Select Case fi.Extension
                Case ".jpg" : PictureBox1.Image.Save(dlg.FileName, _
                  System.Drawing.Imaging.ImageFormat.Jpeg)
                Case ".bmp" : PictureBox1.Image.Save(dlg.FileName, _
                System.Drawing.Imaging.ImageFormat.Bmp)
                Case ".png" : PictureBox1.Image.Save(dlg.FileName, _
                System.Drawing.Imaging.ImageFormat.Png)
            End Select
        End If