Visual Basic

<br />
    Private Sub ResizeImage(ByVal filename As String, ByVal Width As Integer, ByVal height As Integer)<br />
        Dim oSourceImage As Bitmap<br />
        Dim tmpBmp As Bitmap = CType(Image.FromFile(filename), Bitmap)<br />
        Dim IsAlpha As Boolean = Image.IsAlphaPixelFormat(tmpBmp.PixelFormat)<br />
        If IsAlpha = False Then<br />
            oSourceImage = New Bitmap(tmpBmp.Width, tmpBmp.Height, PixelFormat.Format32bppArgb)<br />
            Dim g As Graphics = Graphics.FromImage(oSourceImage)<br />
            g.DrawImage(tmpBmp, 0, 0)<br />
            g.Dispose()<br />
            tmpBmp.Dispose()<br />
        Else<br />
            oSourceImage = tmpBmp<br />
        End If<br />
<br />
        'Dim oSourceImage As Image = TransImageUtility.SetTransparentColour(Image.FromFile(filename))<br />
        If Not ((oSourceImage.Width <= Width) And (oSourceImage.Height <= height)) Then<br />
            Dim oResizedImage As New Bitmap(Width, height, PixelFormat.Format32bppArgb)<br />
            Dim oGraphic As Graphics = Graphics.FromImage(oResizedImage)<br />
            oGraphic.CompositingQuality = CompositingQuality.HighQuality<br />
            oGraphic.SmoothingMode = SmoothingMode.HighQuality<br />
            oGraphic.InterpolationMode = InterpolationMode.HighQualityBicubic<br />
            Dim oRectangle As New Rectangle(0, 0, Width, height)<br />
            '********************************<br />
            Dim largestRatio As Double = Math.Max(CDbl(oSourceImage.Width) / Width, CDbl(oSourceImage.Height) / height)<br />
            Dim posX As Single = CSng(Width * largestRatio / 2 - oSourceImage.Width / 2)<br />
            Dim posY As Single = CSng(height * largestRatio / 2 - oSourceImage.Height / 2)<br />
            Dim mx As New Matrix(1.0F / CSng(largestRatio), 0, 0, 1.0F / CSng(largestRatio), 0, 0)<br />
            mx.Translate(posX, posY)<br />
            oGraphic.Transform = mx<br />
            oGraphic.DrawImageUnscaled(oSourceImage, 0, 0)<br />
            '********************************<br />
            oSourceImage.Dispose()<br />
            oResizedImage.Save(filename, ImageFormat.Gif)<br />
        End If<br />
    End Sub