Private Sub PictureBox1_Paint(sender As Object, e As _
   System.Windows.Forms.PaintEventArgs) Handles PictureBox1.Paint
        'neuen pen für gewünschte strichstärke erstellen
        Dim myPen As New Pen(Brushes.Black, 40)
        'Kreis zeichnen
        e.Graphics.DrawEllipse(myPen, New Rectangle(30, 30, 140, 140))
        'Pen freigebeben
        myPen.Dispose()
    End Sub

Wenn alle Stricke rei?en, dann h?ng ich mich auf. ~ Karl Kraus