Круговая Диаграмма в ВБ 6.0 - VB

Формулировка задачи:

Есть массив из 10 чисел ..как построить круговую диаграмму ??

 
Krug.Scale (-15, 15)-(15, -15)
Krug.FillStyle = 0
 For i = 1 To 10
Krug.FillColor = QBColor(i)
Krug.Circle (0, 0), 10, , -2*pi*??, ??
 Next

Подскажите какие параметры прописать?

Решение задачи: «Круговая Диаграмма в ВБ 6.0»

textual
                            Листинг программы 
                        

                            Public Sub DrawPiePiece(lColor As Long, fStart As Double, fEnd As Double)
 
Const PI As Double = 3.14159265359
Const CircleEnd = -2 * PI
        
Dim dStart  As Double
Dim dEnd    As Double
        
    Picture1.FillColor = lColor
    Picture1.FillStyle = 0
    
    dStart = fStart * (CircleEnd / 100)
    dEnd = fEnd * (CircleEnd / 100)
    
    '              PosX, PosY, Radius, Quadrants
    Picture1.Circle (100, 100), 90, , dStart, dEnd
    
End Sub
                        