Private Sub PictureBox1_Paint(ByVal sender As Object, ByVal e As _
  System.Windows.Forms.PaintEventArgs) Handles PictureBox1.Paint
            ' Halbkreise mit Verlauf
            Dim oPieA As New Rectangle(x1, (y1 + ((y2 - y1) / 15)), (x2 - x1), ( _
              y2 - y1) / 2)
            Dim oBrushPieA As New LinearGradientBrush(oPieA, olor, Color2, _
            LinearGradientMode.Vertical)
 
            Dim g As Graphics = e.Graphics
            With PictureBox1
                g.FillPie(oBrushPieA, xPieStart, y1, PieWidth, (y2 - y1), 90, _
                  180)
            End With
End Sub

fg viperbone