Crear una imagen mas pequeña a partir de otra

[belio]

Este es el codigo q tengo:

-----------------------------------
'Ruta de la imagen a cargar
Dim strSourceFile As String = "C:\DSCN0001.jpg"

'Ruta del archivo nuevo a guardar
Dim strDestFile As String = "C:\001_tn.jpg"

Try

'Cargar la imagen mediante el método FromFile y almacenarla en la variable imgOriginal.

Dim imgOriginal As Image = Image.FromFile(strSourceFile)

MessageBox.Show(ControlChars.Quote & strSourceFile & _
ControlChars.Quote & " cargados correctamente.")

Dim thumb As Image

'Creacion de la imagen pequeña
thumb = imgOriginal.GetThumbnailImage(500, 400, nothing, Nothing)


'Guardar la imagen original como un archivo con Formato Jpg
thumb.Save(strDestFile, ImageFormat.Jpeg)

------------------------------------------------------

Con este método la imagen se me crea con el tamaño indicado (500x400) pero con una calidad pésima.

¿Como puedo crear una imagen con esas dimensiones y con una calidad aceptable para q pese poco y se vea bien?

Muchas gracias