Как закрасить сектор окружности? - VB

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

Рисую окружность, выделяю сектор. Вопрос: как его закрасить?

Решение задачи: «Как закрасить сектор окружности?»

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

                            Private Sub Form_Click()
'Рисуем круг в пределах формы
wd = Me.ScaleWidth: ht = Me.ScaleHeight
If wd < ht Then r = 0.45 * wd Else r = 0.45 * ht
Me.FillStyle = 0
Me.FillColor = vbGreen ' делаем зеленое заполнение
Me.Circle (wd / 2, ht / 2), r
'заливку сектора делаем концентрическими дугами
'подлый VB не дает заливать ничего, кроме кругов и прямоугольников
For i = 1 To r
Me.Circle (wd / 2, ht / 2), i, vbRed, 0, 1.571 ' вместо 0 и 1.571 поставь че надо
Next i
' наслаждайся
End Sub
                        