Dim file As String = e.Form.Controls("url").Value
Dim img As image = getImage(file)
Dim bmp As bitmap
If img.width > 800 Then
If 800 * (img.height / img.width) > 600 Then
bmp = New bitmap(img, 800 * (600 / (800 * (img.height / img.width))), 600)
Else
bmp = New bitmap(img, 800, 800 * (img.height / img.width))
End If
End If
e.Form.Controls("p1").Image = bmp