'Declaration
Public Overloads Sub Arc( _
ByVal As Point, _
ByVal As Single, _
ByVal As Single, _
ByVal As Color _
)
'Usage
Dim instance As Draw
Dim endPoint As Point
Dim startAngle As Single
Dim endAngle As Single
Dim color As Color
instance.Arc(endPoint, startAngle, endAngle, color)