Zitat:

Man sollte für den Fall das die Picturebox NICHT absolut rechteckig ist den Ratio für die Höhe und die Breite gesondert berechnen. Sonst stimmt die Verhältnismässigkeit und somt der neue Bildausschnitt nicht!!

Me.PictureBox.SizeMode = System.Windows.Forms.PictureBoxSizeMode.StretchImage

    Private Sub ScaleImage()
        If IsNothing(Me.PictureBox.Image) Then Exit Sub
        Me.PictureBox.SuspendLayout()
 
        RubberBox.Leave()
 
        'Angaben zum Panel um die Größe der PictureBox zu berechnen
        Dim pnlWidth As Integer = Me.pnlPicture.Width
        Dim pnlHeight As Integer = Me.pnlPicture.Height
        Dim pnlRatio As Double = pnlWidth / pnlHeight
 
        'Daten zum geladenen Bild
        Dim imgWidth As Integer = Me.PictureBox.Image.Width
        Dim imgHeight As Integer = Me.PictureBox.Image.Height
        Dim imgRatio As Double = imgWidth / imgHeight
 
        'Es wird die Größe der PictureBox errechnet
        'Sollte das Bild kleiner sein, als die Größe
        'des Panles, so wird das Bild nicht vergrößert
        With Me.PictureBox
            If imgRatio < pnlRatio Then
                If imgHeight > (pnlHeight - 5) Then
                    .Width = (pnlHeight - 5) * imgRatio
                    .Height = pnlHeight - 5
                Else
                    .Width = imgWidth
                    .Height = imgHeight
                End If
            Else
                If imgWidth > (pnlWidth - 5) Then
                    .Width = pnlWidth - 5
                    .Height = (pnlWidth - 5) / imgRatio
                Else
                    .Width = imgWidth
                    .Height = imgHeight
                End If
            End If
        End With
 
        'Zentrierung der PictureBox auf dem Panel
        Me.PictureBox.Location = New System.Drawing.Point((pnlWidth - _
          Me.PictureBox.Width) / 2, (pnlHeight - Me.PictureBox.Height) / 2)
        Me.PictureBox.ResumeLayout()
    End Sub
 
    Private Sub PictureBox_Paint(ByVal sender As Object, ByVal e As _
      System.Windows.Forms.PaintEventArgs) Handles PictureBox.Paint
        ScaleImage()
    End Sub