Image resize with Smoothing (anti alias)

[Jay]

Hi guys, trying to fix a problem with an image resize routine. The code
posted below uploads and resizes a jpeg, probablem is, the outlook can look
a bit bitty becuase of teh samller size...is there a way I can anti alias /
smooth the resized image before saving?
If myThumb.Content Length > 0 Then
Dim myThumbData(myT humb.ContentLen gth) As Byte

myThumb.InputSt ream.Read(myThu mbData, 0, myThumb.Content Length)

Dim FileStream As New System.IO.FileS tream(strTempSa vePath &
"rawupload-thumb.jpg", IO.FileMode.Cre ate)

FileStream.Writ e(myThumbData, 0, myThumb.Content Length)

FileStream.Clos e()

' Create New image and bitmap objects. Load the image file and put into a
resized bitmap.

Dim g As System.Drawing. Image =
System.Drawing. Image.FromFile( strTempSavePath & "rawupload-thumb.jpg")

Dim thisFormat = g.RawFormat

Dim intThumbSize As New Size

intThumbSize = NewImageSize(g. Width, g.Height, 90, 90)

' Create bimap in memory to manipulate image.

Dim imgOutput As New Bitmap(g, intThumbSize.Wi dth, intThumbSize.He ight)

Response.Conten tType = "image/jpeg"

' Resize done, now save the file back to the temp directory.

imgOutput.Save( strTempSavePath & "upload-thumb.jpg", thisFormat)

' Tidy up the objects

g.Dispose()

imgOutput.Dispo se()

' Set URL for uploaded image to be previwed on page where this control is
included.

imgThumb.ImageU rl = "/catalogue/images/tmp/upload-thumb.jpg"

imgThumb.Visibl e = True

End If