aKare Bilişim Hizmetleri

                                        
 If Not String.IsNullOrEmpty(yol) Then

            Dim bm As New Bitmap(yol)

            Dim w As Integer = bm.Width.ToString

            Dim h As Integer = bm.Height.ToString

             If bm.Width > bm.Height Then

                  h = bm.Height * ayarlawidth / bm.Width

             End If
             If bm.Width < bm.Height Then

                 w = ayarlaheight * bm.Width / bm.Height

                 h = ayarlaheight

            End If

            If bm.Width = bm.Height Then

                 h = ayarlaheight

            End If
             Dim width As Integer = Val(w) 'image width. 

            Dim height As Integer = Val(h) 'image height

            Dim thumb As New Bitmap(width, height)

            Dim g As Graphics = Graphics.FromImage(thumb)

             g.InterpolationMode = Drawing2D.InterpolationMode.HighQualityBicubic

             g.DrawImage(bm, New Rectangle(0, 0, width, height), New Rectangle(0, 0, bm.Width, _

    bm.Height), GraphicsUnit.Pixel)

             g.Dispose()
              thumb.Save(gonder, System.Drawing.Imaging.ImageFormat.Jpeg) '

             bm.Dispose()

              thumb.Dispose()