[VB6] Ridimensionare le immagini sgranandole il meno possibile

[MdE2005]

Sarebbe troppo bello..comunque dipende dalla risoluzione e dai pixels impiegati.
Un metodo comunque è questo:
-aggiungi una ImageBox chiamata Image1 e carica un'immagine
-metti il codice in un command button

Image1.Stretch = True
Image1.Height = Image1.Height * 1.5
Image1.Width = Image1.Width * 1.5

ciao