Originariamente inviato da chipdb
Io ho fatto così:
codice:
Set Prova = LoadPicture(cd.FileName) 'Prova è una variabile "Picture"
Picture1.Picture = Prova
Picture2.Cls
Picture2.PaintPicture Picture1.Picture, 0, 0, Picture2.Width, Picture2.Height
SavePicture Picture2.Image, "C:\Out.jpg"
Così a me funziona...

Ciao
nel tuo progetto come sono impostate le proprietà
scalemode e autoredraw dei controlli picture?