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.AnnShowNodes
   LEAD1.AnnSetNodes hPlgn, bShow = False, (nNodes + 1) Mod LEAD1.AnnGetPointCount (hPlgn), False


   Dim nNodes As Integer, bShow As Boolean
   If hPlgn = 0 Then Exit Sub
   RasterAnn.AnnSetFillPattern hPlgn, (RasterAnn.AnnGetFillPattern (hPlgn) + 1) Mod 7, False
   RasterAnn.AnnSetFillMode hPlgn, (RasterAnn.AnnGetFillMode (hPlgn) + 1) Mod 3, False
   RasterAnn.AnnSetPolyFillMode hPlgn, 1 - RasterAnn.AnnGetPolyFillMode (hPlgn), False
   RasterAnn.AnnSetLineStyle hPlgn, (RasterAnn.AnnGetLineStyle (hPlgn) + 1) Mod 6, False
   RasterAnn.AnnSetLineWidth hPlgn, (RasterAnn.AnnGetLineWidth (hPlgn)) Mod 4 + 1, False
   nNodes = RasterAnn.AnnGetNodes (hPlgn)
   bShow = LEAD1.AnnShowNodes

   Dim ptCount As Long
   RasterAnn.AnnGetPointCount hPlgn
   ptCount = RasterAnn.AnnPointCount
   RasterAnn.AnnSetNodes hPlgn, bShow = False, (nNodes + 1) Mod ptCount, False