x1 = 0
        y1 = 0
        x2 = 120
        y2 = 30
 
        ' Halbkreise mit Verlauf
        Dim oPieA As New Rectangle(x1, y1, x2, y2 / 2)
        Dim oPieA1 As New Rectangle(x1, y1, x2 / 4, y2)
        Dim oPieA2 As New Rectangle(x1 + x2 / 8, y1, x2 - x2 / 8, y2)
 
        Dim oBrushPieA As New LinearGradientBrush(oPieA, Color.DarkSeaGreen, _
          Color.Purple, LinearGradientMode.Vertical)
        oBrushPieA.WrapMode = WrapMode.TileFlipX
        Dim g As Graphics = e.Graphics
        With PictureBox1
            g.FillPie(oBrushPieA, oPieA1, 90, 180)
            g.FillRectangle(oBrushPieA, oPieA2)
        End With
        oBrushPieA.Dispose()

________
Alle Angaben ohne Gewähr. Keine Haftung für Vorschläge, Tipps oder sonstige Hilfe, falls es schiefgeht, nur Zeit verschwendet oder man sonst nicht zufrieden ist