Visual Basic.NET - Redimensionar un archivo de imagen

Dim imagenOriginal As Bitmap

Dim imagenRedimensionada As Bitmap

'Carga de la imagen original

imagenOriginal = New Bitmap("Nombre de archivo")

'creamos una imagen con las dimensiones que se desean

'en este caso la creamos de 100x100 pixels

imagenRedimensionada = New Bitmap(100, 100)

'creamos un objeto graphics desde la nueva imagen

Using gr As Graphics = Graphics.FromImage(imagenRedimensionada)

	'en la nueva imagen "pintamos" la antigua imagen con las dimensiones de la nueva imagen

	gr.DrawImage(imagenOriginal, 0, 0, imagenRedimensionada.Width, imagenRedimensionada.Height)

End Using

'se guarda la nueva imagen

imagenRedimensionada.Save("nombre archivo destino")