Private Sub PictureBox1_Click(sender As System.Object, _
        e As System.EventArgs) Handles PictureBox1.Click
 
    Dim bmp As New Bitmap(200, 200)
    Dim g As Graphics = Graphics.FromImage(bmp)
 
    Dim ri As Double = 50 'Innendurchmesser
    Dim ra As Double = 90 'Aussendurchmesser
 
    Dim pts As New List(Of PointF), types As New List(Of Byte)
    For w As Double = 0 To 2 * Math.PI Step 0.02
       pts.Add(New PointF(CSng(Math.Sin(w) * ri + 100), _
               CSng(Math.Cos(w) * ri + 100)))
       types.Add(CByte(Drawing2D.PathPointType.Line))
    Next w
 
    For w As Double = 0 To 2 * Math.PI Step 0.02
        pts.Add(New PointF(CSng(Math.Sin(w) * ra + 100), _
                    CSng(Math.Cos(w) * ra + 100)))
        If w = 0 Then
           types.Add(CByte(Drawing2D.PathPointType.CloseSubpath))
        Else
           types.Add(CByte(Drawing2D.PathPointType.Line))
        End If
    Next w
 
    types(0) = CByte(Drawing2D.PathPointType.Start Or _
            Drawing2D.PathPointType.Line)
 
    Dim gp As New Drawing2D.GraphicsPath(pts.ToArray, types.ToArray)
 
    g.Clear(Color.Lavender)
    g.FillPath(Brushes.Black, gp)
 
    PictureBox1.Image = bmp
 
End Sub