Public Shared Function AutoSizeImage(ByVal oBitmap As Image, ByVal _
  DestinationRectangle As Rectangle) As Image
 
            Dim maxWidth As Integer = DestinationRectangle.Width
            Dim maxHeight As Integer = DestinationRectangle.Height
            ' Größenverhältnis der max. Dimension
            Dim maxRatio As Single = CSng(maxWidth / maxHeight)
 
            ' Bildgröße und aktuelles Größenverhältnis
            Dim imgWidth As Integer = oBitmap.Width
            Dim imgHeight As Integer = oBitmap.Height
            Dim imgRatio As Single = CSng(imgWidth / imgHeight)
 
            ' Bild anpassen?
            If (imgWidth > maxWidth Or imgHeight > maxHeight) Then
                If imgRatio <= maxRatio Then
                    ' Größenverhältnis des Bildes ist kleiner als die
                    ' maximale Größe, in der das Bild angezeigt werden kann.
                    ' In diesem Fall muss die Bildbreite angepasst werden.
                    imgWidth = CInt(imgWidth / (imgHeight / maxHeight))
                    imgHeight = maxHeight
                Else
                    ' Größenverhältnis des Bildes ist größer als die 
                    ' maximale Größe, in der das Bild angezeigt werden kann.
                    ' In diesem Fall muss die Bildhöhe angepasst werden.
                    imgHeight = CInt(imgHeight / (imgWidth / maxWidth))
                    imgWidth = maxWidth
                End If
 
                ' Bitmap-Objekt in der neuen Größe erstellen
                Dim oImage As New Bitmap(imgWidth, imgHeight)
 
                Dim g As System.Drawing.Graphics = _
                  System.Drawing.Graphics.FromImage(oImage)
                DestinationRectangle = New Rectangle(0, 0, imgWidth, imgHeight)
                g.DrawImage(oBitmap, DestinationRectangle, New Rectangle(0, 0, _
                  oBitmap.Width, oBitmap.Height), GraphicsUnit.Pixel)
                ' neues Bitmap zurückgeben
                Return oImage
            Else
                ' unverändertes Originalbild zurückgeben
                Return oBitmap
            End If
        End Function