Ridimensionare le immagini

In un forum un utente ha chiesto in che modo è possibile ridimensionare un file immagine. Incuriosito dalla sua domanda mi sono messo a cercare informazioni per risolvere questo quesito. Dopo avere consultato qualche manuale e la MSDN, sono riuscito a scrivere queste righe di codice:

'immagine originale
		Dim bm As New Bitmap("D:\Img1.jpg")
		
		'nuova dimensione di 150x326 pixel
		Dim new_bm As New Bitmap(bm, 150, 326)
		
		bm.Dispose()
		new_bm.Save("D:\Img2.jpg", System.Drawing.Imaging.ImageFormat.Jpeg) 

Si tratta di creare 2 bitmap, una che contiene il file immagine da modificare e l'altra una copia della prima con impostate le nuove dimensioni .
Non resta che rilascaire le risorse occupate dalla prima immagine e salvare in un file la seconda che avrà larghezza e altezza esattamente come impostato.