REDIMENSIONAR IMAGEN

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