[VB.NET] Modifica immagini

[Teflo]

Cosi riduci l'immagine esattamente a metà :

Dim imgSource As Image = PicImmagine.Image
Dim imgThumbnail As Image
imgThumbnail = imgSource.GetThumbnailImage(CInt(imgSource.Width / 2), CInt(imgSource.Height / 2), Nothing, Nothing)