Per ridimensionare (rimpicciolire o ingradire) un'immagine devi usare il metodo .Stretch() della Classe Image.
Vediamo un esempio:
Public Sub Form_Open()
Dim im As Image
im = Image.Load("/percorso/del/file.jpg")
' Rimpiccioliamo l'immagine proporzionalmente della metà:
im = im.Stretch(im.W / 2, im.H / 2)
' Adattiamo la PixtureBox alla nuova dimensione dell'immagine:
With PictureBox1
.W = im.W
.H = im.H
' Mostriamo l'immagine, come ridimensionata, nella PictureBox:
.Picture = im.Picture
End With
' Salviamo l'immagine ridimensionata in un nuovo file .jpg, impostando qualità massima e compressione nulla:
im.Save("/percorso/del/nuovo/file.jpg", 100)
End
Colgo l'occasione, comunque, per segnalarti il capitolo della nostra WIKI dedicato alla gesione delle Immagini:
http://www.gambas-it.org/wiki/index.php?title=Guide_della_comunit%C3%A0#Gestione_delle_immagini