Visual Basic 6 - SavePicture

Buongiorno a tutti,
in un mio programma c'è una PictureBox in cui mostrare una foto in formato 640 x 480 ricavandola però da una foto di dimensioni molto più grandi precaricata in una picSource. Per questo utilizzo l'istruzione:
Picture1.PaintPicture picSource.Picture, 0, 0, 640, 480
e fin quì è tutto OK.

Successivamente vorrei salvare la foto (quella in formato 640 x 480 e che appare in Picture1) come file bmp. Utilizzo l'istruzione:
SavePicture Picture1.Image, App.Path & "\Prova.bmp"
e mi ritrovo, sì, in App.Path il file "Prova.bmp", e anche delle giuste dimensioni, ma il file "è vuoto", non c'è alcuna foto!
Eppure se nella Picture1 la foto 640x480 è caricata tramite la proprietà Picture anzichè con PaintPicture, l'immagine viene correttamente salvata.
Mi aiutate? Dove sbaglio?
Grazie e cordiali saluti.
Sal47

invece di:
SavePicture Picture1.Image, App.Path & "\Prova.bmp"

Scrivi:
Picture1.Picture = Picture1.Image
SavePicture Picture1.Picture , App.Path & "\Prova.bmp"


Edit:
È essenziale che Picture1.Autoredraw = true

Perfetto!! Ora il salvataggio del file bmp va a buon fine. Ti ringrazio.
I tuoi suggerimenti sono, come sempre, "illuminanti".
Cordialmente.
Sal47