Ya pas grand monde qui sait comment faire ça. Voici les codes:
Filter = "JPEG (*.jpg)|*.jpg" 'Type de fichier ShowSave 'Afficher la fenetre Save as... a$ = CommonDialog1.FileName 'Mettre la sauvegarde en 'variable If a$ <> "" Then 'Si le vous avez entrez un nom alors... SavePicture Picture1.Image, a$ 'Enregistrez l'image de la 'picture1 Else 'Sinon... 'rien End If 'terminer le si.....
autoredraw = true dans Form_load()!