Originariamente inviato da vr-claudio
Una volta pescata l'immagine e incollata nella Image1, succede che se troppo grande, chiaramente, di conseguenza mi sborda!
Ciao, con pochi accorgimenti, dimensioni la PictureBox:

1. le dimensioni in progettazione sono quelle dell'immagine più grande che prevedi di mostrare.
2. dopo avere caricato Image in dimensioni reali, applichi alla PictureBox lo zoom di riduzione, se l'immagine è troppo grande, rispettando le proporzioni (altezza - larghezza) di Image
3. disegni la PictureBox con Paintpicture

per caricare l'immagine:
'carica l'immagine in dimensioni reali
'il controllo Image non è visibile
Set Image1.Picture = LoadPicture()
Set Image1.Picture = LoadPicture(Commondialog1.FileName, vbLPLarge, vbLPColor)