Private Shared
Function ImageResize(IMG As System.Drawing.Image, newW As Integer,
newH As Integer) As System.Drawing.Image
Dim newImg As New Bitmap(IMG) ', newW, newH)
newImg.Clone(New System.Drawing.Rectangle(1, 1, 50, 50), PixelFormat.Undefined)
Dim g As Graphics = Graphics.FromImage(newImg)
g.InterpolationMode =
System.Drawing.Drawing2D.InterpolationMode.HighQualityBilinear
g.DrawImage(IMG, 0, 0, newImg.Width,
newImg.Height)
g.RotateTransform(90)
Return newImg
End Function
