https://barnamenevis.org/showpo...3&postcount=94

Imports System.Drawing.Drawing2D





 Private Shared Function resizeImage(ByVal imgToResize As Image, ByVal size As Size) As Image



        Dim sourceWidth As Integer = imgToResize.Width

        Dim sourceHeight As Integer = imgToResize.Height



        Dim nPercent As Decimal = 0

        Dim nPercentW As Decimal = 0

        Dim nPercentH As Decimal = 0



        nPercentW = (size.Width / sourceWidth)

        nPercentH = size.Height / sourceHeight



        If nPercentH < nPercentW Then

            nPercent = nPercentH

        Else

            nPercent = nPercentW

        End If

        Dim destWidth As Integer = (sourceWidth * nPercent)

        Dim destHeight As Integer = (sourceHeight * nPercent)



        Dim b As Bitmap = New Bitmap(destWidth, destHeight)

        Dim g As Graphics = Graphics.FromImage(b)

        g.InterpolationMode = InterpolationMode.HighQualityBicubic



        g.DrawImage(imgToResize, 0, 0, destWidth, destHeight)

        g.Dispose()



        Return b

    End Function