Annotation Colors example for Visual Basic

   Dim cr As Long
   LEAD2.Load "C:\TEMP\flagsel.bmp", 0, 1, 1
   LEAD1.AnnSetBitmap hStamp, LEAD2.Bitmap, False
   LEAD1.AnnSetAutoBackColor LEAD1.AnnAutomation, ANNOBJECT_ALL, RGB(40, 80, 160)
   cr = LEAD1.AnnGetAutoBackColor (LEAD1.AnnAutomation, ANNOBJECT_POLYGON)
   MsgBox "AutoBackColor: " & Hex(cr)
   
   If Not LEAD1.AnnGetTransparent (hStamp) Then
      LEAD1.AnnSetTransparent hStamp, True, False
   End If

   LEAD1.AnnSetTransparentColor hStamp, vbGreen, False
   cr = LEAD1.AnnGetTransparentColor (hStamp)
   MsgBox "TransparentColor: " & Hex(cr)

  LEAD1.AnnSetBackColor hPlgn, vbMagenta, False
   cr = LEAD1.AnnGetBackColor (hPlgn)
   MsgBox "BackColor: " & Hex(cr)

   LEAD1.AnnSetForeColor hPlgn, vbCyan, False
   cr = LEAD1.AnnGetForeColor (hPlgn)
   MsgBox "ForeColor: " & Hex(cr)
   LEAD1.Bitmap = LEAD1.AnnGetBitmap (hStamp)