' Inscrivez le nom du dossier de l'image.
Dim file_name As String = Application.ExecutablePath
file_name = file_name.Substring(0, file_name.LastIndexOf("\bin")) & _
"\Test."
' Recevez un Bitmap.
Dim bm As Bitmap = PictureBox1.Image
' Sauvez l'image comme un bitmap, JPEG et GIF.
bm.Save(file_name & "bmp", System.Drawing.Imaging.ImageFormat.Bmp)
bm.Save(file_name & "jpg", System.Drawing.Imaging.ImageFormat.Jpeg)
bm.Save(file_name & "gif", System.Drawing.Imaging.ImageFormat.Gif)