'Declaration
Public Overloads Sub Rectangle( _
ByVal As Point, _
ByVal As Point, _
ByVal As Color, _
ByVal As Boolean _
)
'Usage
Dim instance As Draw
Dim startPoint As Point
Dim endPoint As Point
Dim color As Color
Dim fill As Boolean
instance.Rectangle(startPoint, endPoint, color, fill)