Pues yo probé poniedolé al picture1 autosize = true y false y siempre me lo guardo con la misma resolcuión y tamaño.
tenga en cuenta que sea la misma extensión.
Esto fue lo que yo hice.
Hay que agregarle el common dialog --nombre = cd
Option Explicit
Private Sub Command1_Click()
Picture1.Picture = LoadPicture("c:\listo.jpg")
End Sub
Private Sub Command2_Click()
cd.ShowSave
SavePicture Picture1.Picture, cd.InitDir & cd.FileName
End Sub
También es mejor hacer una especie de visor de imagenes, yo estoy hacie
ndo un tuto, pero no hay tiempito, cuando termine lo posteo.l
Cualquier duda con gusto hago lo posible por ayudarle.
