Untitled Page

The Startshape object

'draws a simple star like shape.
'always start with BeginDraw and end with EndDraw

Sub BeginDraw()

Sub EndDraw()

Sub DrawStar(ByVal points As Long, ByVal InnerSize As Single, ByVal OuterSize As Single, _
ByVal placementx As Single, ByVal placementy As Single, _
ByVal r1 As Long, ByVal g1 As Long, ByVal b1 As Long, ByVal r2 As Long, ByVal g2 As Long, ByVal b2 As Long, ByVal stroke As Boolean, ByVal StrokeSize As Single, ByVal Polygon As Boolean, _
ByVal Antialiasing As Boolean)

Sub Rotate(ByVal a As Single) ' radians