Private Sub Command1_Click()
CommonDialog1.FileName = "D:Mitsubishi Eclipse.bmp"
Picture1.AutoRedraw = True
Picture1.PaintPicture LoadPicture(CommonDialog1.FileName), 0, 0, Picture1.ScaleWidth, Picture1.ScaleHeight
NombFile = App.Path & "imagenes" & "imagen1.jpg"
SavePicture Picture1.Image, NombFile
End Sub