'Declaration
Protected Overridable Sub PaintBorder( _ ByVal g As Graphics, _ ByVal r As Rectangle _ )
'Usage
Dim instance As DiamondShape Dim g As Graphics Dim r As Rectangle instance.PaintBorder(g, r)
Parameters
- g
- Graphics device
- r
- Rectangle bounding the area