AnnSetPolyFillMode example for Visual Basic
Dim nNodes As Integer, bShow As Boolean
LEAD1.AnnSetFillPattern hPlgn, (LEAD1.AnnGetFillPattern (hPlgn) + 1) Mod 7, False
LEAD1.AnnSetFillMode hPlgn, (LEAD1.AnnGetFillMode (hPlgn) + 1) Mod 3, False
LEAD1.AnnSetPolyFillMode hPlgn, 1 - LEAD1.AnnGetPolyFillMode (hPlgn), False
LEAD1.AnnSetLineStyle hPlgn, (LEAD1.AnnGetLineStyle (hPlgn) + 1) Mod 6, False
LEAD1.AnnSetLineWidth hPlgn, (LEAD1.AnnGetLineWidth (hPlgn)) Mod 4 + 1, False
nNodes = LEAD1.AnnGetNodes (hPlgn, bShow)
LEAD1.AnnSetNodes hPlgn, bShow = False, (nNodes + 1) Mod LEAD1.AnnGetPointCount (hPlgn), False