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
            .RotateTransform(rowinkel)        ' Winkel um den die Zeichenfläche 
            ' gedreht wird
            e.Graphics.FillRectangle(Brushes.Blue, 140, 140, 30, 30)     ' das 
            ' blaue Quadrat
        End With
    End Sub
    Private Sub Button1_Click(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