Resize sia in larghezza che in altezza

[emangelo]

Salve ragazzi,
ho questo script che mi ridimensiona, secondo un valore che imposto in un form, la larghezza dell'immagine.
Ora io vorrei ridimensionare anche l'altezza, secondo un valore fisso però.

Questo è lo script:









Dim LarghezzaMassima As Integer = 800
Dim PercorsoConsentito As String = "/public/"

Dim Larghezza As Integer
Dim oldImage As System.Drawing.Image,NewImage As System.Drawing.Image

Private Sub Page_Load(ByVal sender As Object, ByVal e As EventArgs)
If Not Request.QueryString("img") Is Nothing Then
Dim strimg As String = Convert.ToString(Request.QueryString("img"))
Larghezza = Convert.ToInt32(Request.QueryString("opx"))

If Larghezza > LarghezzaMassima Then Larghezza = LarghezzaMassima
If strimg <> "" And strimg.Trim().StartsWith(PercorsoConsentito) Then
Try
oldImage = System.Drawing.Image.FromFile(Server.MapPath(strim g))
NewImage = oldImage.GetThumbnailImage((Larghezza), (Larghezza*oldImage.Height/oldImage.Width), Nothing, IntPtr.Zero)
Response.ContentType = "image/jpeg"
newImage.Save(Response.OutputStream,System.Drawing .Imaging.ImageFormat.Jpeg)
oldImage.Dispose()
newImage.Dispose()
oldImage = Nothing
Catch ex As Exception
Response.Write(ex.Message)
End Try
End If
End If
End Sub








Come posso fare?

Grazie

[emangelo]

nessuno sa aiutarmi???

grazie