Dim current As Single = 0
Dim total As Single = 0
Dim arrData() As String ' z.b. arrData(0)=2 und arrData(1)=3  
 
 'get total of data
        For i = 0 To UBound(arrData)
            sum += arrData(i)
        Next i
 
For i = 0 To UBound(arrData)
 
            current = arrData(i) / sum * 360
            graphic.FillPie(New SolidBrush(SelectColor(i)), 2, 22, 173, 175, _
              total, current)
            graphic.DrawPie(Pens.Black, 2, 22, 173, 175, total, current)
            total += current
 
            Next i