Imports System.Drawing.Drawing2D
Public Class Form1
    Dim rowinkel As Int32 = 0   ' Rotationswinkel
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) Handles MyBase.Load
        PictureBox1.Location = New Point(5, 5)
        PictureBox1.Size = New Size(310, 310)
        PictureBox1.BackColor = Color.Black
    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       ' mit 
            ' AntiAliasing sieht es besser aus
            .TranslateTransform(-154, -154)                            ' das 
            ' Quadrat in den Nullpunkt schieben
            .RotateTransform(rowinkel, MatrixOrder.Append)             ' nun 
            ' die Drehung (anhängen)
            .TranslateTransform(154, 154, MatrixOrder.Append)          ' 
            ' Verschiebung zurücknehmen (anhängen)
            .FillRectangle(Brushes.Blue, 100, 100, 110, 110)           ' das 
            ' blaue Quadrat
            .FillRectangle(Brushes.Yellow, 105, 105, 10, 10)           ' die 
            ' gelbe Markierung
        End With
    End Sub
        Private Sub Button1_Click_1(ByVal sender As System.Object, ByVal e As _
          System.EventArgs) Handles Button1.Click
        For wi As Int32 = 0 To 360
            rowinkel = wi                        ' der Winkel zwischen 0 und 
            ' 360 Grad
            Me.Text = wi.ToString & " Grad"      ' den Winkel anzeigen
            System.Threading.Thread.Sleep(20)    ' eine kleine Pause
            PictureBox1.Refresh()                ' die PictureBox neu zeichnen
        Next
    End Sub
End Class