AnnSetPolyFillMode example for Visual Basic

   Dim nNodes As Integer, nFillMode As Integer, nAlpha As Integer, bShow As Boolean
   LEAD1.AnnSetFillPattern hPlgn, (LEAD1.AnnGetFillPattern (hPlgn) + 1) Mod 7, False
   LEAD1.AnnGetFillMode hPlgn, nFillMode, nAlpha
   LEAD1.AnnSetFillMode hPlgn, (nFillMode + 1) Mod 3, nAlpha, 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