Class MeinePictureBox
  Inherits PictureBox
 
  Protected Overrides Sub OnPaint(pe As PaintEventArgs)
    If Image IsNot Nothing AndAlso SizeMode = PictureBoxSizeMode.Zoom Then
      pe.Graphics.DrawImage(Image, ImageRectangle)
    Else
      MyBase.OnPaint(pe)
    End If
  End Sub
 
  Private Function ImageRectangle() As Rectangle
    Dim cr = ClientRectangle
    If Image IsNot Nothing Then
      Dim ims = Image.Size
      Dim ratio = Math.Min(cr.Width / ims.Width, cr.Height / ims.Height)
      cr.Width = CInt(ims.Width * ratio)
      cr.Height = CInt(ims.Height * ratio)
      cr.X = (Me.Width - cr.Width) \ 2
      cr.Y = (Me.Height - cr.Height) \ 2
    End If
    Return cr
  End Function
 
End Class

  Protected Overrides Sub OnPaint(pe As PaintEventArgs)
    If Image IsNot Nothing AndAlso SizeMode = PictureBoxSizeMode.Zoom Then
      Dim g = pe.Graphics
      'Verschieben zum Mittelpunkt
      g.TranslateTransform(Me.Width / 2.0F, Me.Height / 2.0F)
      'Drehen um 5 Grad
      g.RotateTransform(5.0F)
      'Grafik vergrößern, damit keine Ränder sichtbar sind
      '(der genaue Faktor muss berechnet werden!)
      g.ScaleTransform(1.2F, 1.2F)
      'Zurückverschieben
      g.TranslateTransform(-Me.Width / 2.0F, -Me.Height / 2.0F)
      'Qualität verbessern
      g.InterpolationMode = Drawing2D.InterpolationMode.HighQualityBicubic
      'Bild zeichnen
      g.DrawImage(Image, ImageRectangle)
    Else
      MyBase.OnPaint(pe) 'internes zeichnen
    End If
  End Sub