Puoi usare il seguente codice:

codice:
Private Sub Command1_Click()
CommonDialog1.ShowSave
SavePicture Image1, CommonDialog1.FileName
End Sub

NB: il file deve avere estensione .bmp, poichè il controllo Image converte automaticamente l'immagine in esso contenuta in Bitmap.


Spero di essere stato chiaro

Ciao