Dim cols(4) As Color
    Protected Overrides Sub OnPaint(ByVal e As _
      System.Windows.Forms.PaintEventArgs)
        Dim current As Single = 0
        Dim os As Single = -90
        Dim total As Single = os
        Dim tcurrent  as single
        Dim sum As Single = 0
        Dim arrData(4) As Single
        arrData(0) = 10
        arrData(1) = 20
        arrData(2) = 30
        arrData(3) = 40
        arrData(4) = 50
 
        cols(0) = Color.AliceBlue
        cols(1) = Color.Beige
        cols(2) = Color.Chartreuse
        cols(3) = Color.DarkGreen
        cols(4) = Color.Gainsboro
 
        'get total of data
        For i As Integer = 0 To UBound(arrData)
            sum += arrData(i)
        Next i
 
        For i As Integer = 0 To UBound(arrData)
            current = arrData(i) * 360 / sum
            e.Graphics.FillPie(New SolidBrush(cols(i)), 100, 100, 200, 200, _
              total, current)
            e.Graphics.DrawPie(Pens.Black, 100, 100, 200, 200, total, current)
 
            tcurrent = -(os + total + current / 2) * Math.PI / 180
            Dim t As String = arrData(i).ToString()
            Dim ts As SizeF = e.Graphics.MeasureString(t, Me.Font)
            Dim tx As Single = 200 - ts.Width / 2 + 120 * Math.Sin(tcurrent)
            Dim ty As Single = 200 - ts.Height / 2 + 120 * Math.Cos(tcurrent)
            e.Graphics.DrawString(t, Me.Font, Brushes.Red, tx, ty)
            total += current
 
        Next i
    End Sub

________
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