'Declaration
Public Overloads Sub Circle( _
ByVal As Point, _
ByVal As Integer, _
ByVal As Color, _
ByVal As Single _
)
'Usage
Dim instance As Draw
Dim location As Point
Dim radius As Integer
Dim color As Color
Dim aspectRatio As Single
instance.Circle(location, radius, color, aspectRatio)