Dim stift As New Pen(Brushes.Yellow)
        Dim x, y As Double
        Dim radius As Double = 100
        Dim winkel As Double = 0
        Dim schleifenzähler As Integer = 0
        Dim bogenmass As Double
 
'Bitmap erstellen mit der größe des Fensters
        Dim Drawing As New Bitmap(Me.ClientRectangle.Width, _
          Me.ClientRectangle.Height, e.Graphics)
 
'Zeiger auf die Bitmap erstellen
        Dim g As Graphics = Graphics.FromImage(Drawing)
 
'die Bildmitte ausrechnen
        mittelpunkt = Me.Width / 2
 
'Zeichnen des Hintergrunds (schwarzes Rechteck) zum löschen der Form
        g.FillRectangle(Brushes.Black, New Rectangle(0, 0, _
          Me.ClientRectangle.Width, Me.ClientRectangle.Height))
        stift.Width = 1
 
 
 
               Do While winkel < 360
            bogenmass = 6.2831853071 / (360 / winkel)
            x = mittelpunkt + radius * Math.Cos(weiter + bogenmass)
            y = (mittelpunkt + 20) + 20 * Math.Sin(weiter + bogenmass)
            stift.Color = Color.Yellow
            g.DrawRectangle(stift, New Rectangle(x, y, 1, 1))
 
            x = mittelpunkt + radius * Math.Cos(weiter + bogenmass)
            y = mittelpunkt + 20 * Math.Sin(weiter + bogenmass)
            If schleifenzähler = 10 Then
                stift.Color = Color.Red
                g.DrawLine(stift, New Point(x, y), New Point(x, y + 20))
            Else
                stift.Color = Color.Yellow
            End If
            g.DrawRectangle(stift, New Rectangle(x, y, 1, 1))
            winkel += 3.6
            schleifenzähler += 1
            If schleifenzähler = 11 Then
                schleifenzähler = 1
            End If
        Loop
        Me.Text = "Rundenzähler... Anzahl: " & schleifenzähler.ToString
 
        weiter += 0.005
 
        e.Graphics.DrawImage(Drawing, New Point(0, 0))
        g.Dispose()