Нарисовать дугу окружности в VB6

Нужна процедура, которая будет рисовать на форме дугу окружности.

Visual Basic 6.0 !

Дуга ограничена хордой (ее тоже надо нарисовать).

Public Sub DrawCurv(ByVal cX As Single, ByVal cY As Single, _

ByVal Radius as Single, _

ChordWidth as Single, _

Optional ByVal FillColor As Long = vbGray, _

Optional ByVal LineColor As Long = vbRed, Optional ByVal LineWidth As Long = 1)

- cX, cY - координаты центра окружности относительно координат формы

- Radius

- ChordWidth - ширина хорды, на картинке (17.000 дюймов)

- FillColor - цвет, которым будет производиться заливка фигуры

- LineColor - цвет линии, которой ограничена фигура

- толщина линий, которыми ограничена фигура

Пример прикреплен. Участок закрашенный серым - то, что должно быть нарисовано.