Imports System.Drawing.Drawing2D
Public Class Form1
    Dim WithEvents Pb As New PictureBox With {.Dock = DockStyle.Fill, .Parent = _
      Me}
    Dim fo As New Font("Arial", 16, FontStyle.Bold)
    Dim angle As Int32 = 0
 
    Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        Me.ClientSize = New Size(300, 300)
    End Sub
 
    Private Sub Pb_MouseDown(sender As Object, e As MouseEventArgs) Handles _
      Pb.MouseDown
        angle += 45     ' Grafik um diesen Winkel drehen
        Pb.Invalidate()
    End Sub
 
    Private Sub Pb_Paint(sender As Object, e As PaintEventArgs) Handles Pb.Paint
        Dim m As New Matrix
        m.RotateAt(angle, New Point(150, 150)) ' Drehwinkel, Drehpunkt
        e.Graphics.Transform = m
        e.Graphics.FillRectangle(Brushes.Blue, 50, 50, 200, 200)
        e.Graphics.DrawString("Vb@rchiv", fo, Brushes.Yellow, 80, 130)
    End Sub
End Class