Imports System.Drawing.Drawing2D
Public Class Form1
    Dim pscale As Single = 1.0
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) Handles MyBase.Load
        PictureBox1.Width = 310
        PictureBox1.Height = 310
    End Sub
        Private Sub PictureBox1_MouseDown(ByVal sender As Object, ByVal e As _
          System.Windows.Forms.MouseEventArgs) Handles PictureBox1.MouseDown
        If e.Button = Windows.Forms.MouseButtons.Left And pscale > 0.1 Then
            pscale -= 0.1
        End If
        If e.Button = Windows.Forms.MouseButtons.Right And pscale < 1.9 Then
            pscale += 0.1
        End If
        PictureBox1.Refresh()
    End Sub
    Private Sub PictureBox1_Paint(ByVal sender As Object, ByVal e As _
      System.Windows.Forms.PaintEventArgs) Handles PictureBox1.Paint
        With e.Graphics
            .SmoothingMode = Drawing2D.SmoothingMode.HighQuality     _
              'Antialiasing verwenden
            .TextRenderingHint = Drawing.Text.TextRenderingHint.ClearTypeGridFit
            .Clear(Color.Black)
            .TranslateTransform(-152, -152)                          'Bildmitte 
            ' = Drehpunkt 
            .ScaleTransform(pscale, pscale, MatrixOrder.Append)      _
              'Skalierung für X und Y ist hier gleich
            .TranslateTransform(152, 152, MatrixOrder.Append)        _
            'Verschiebung zurücknehmen
            .DrawRectangle(New Pen(Color.Yellow, 5), 78, 78, 150, 150)
            .DrawString("ScaleTransform", New Font("Arial", 12), Brushes.White, _
              90, 145)
        End With
    End Sub
End Class