AnnGetProtractorOptions example for Visual Basic

   Dim ArcRadius As Single, bAcute As Boolean, nUnit As Integer, nPrecision As Integer, abbr As String
   abbr = LEAD1.AnnGetProtractorOptions (hProt, bAcute, nUnit, nPrecision, ArcRadius)
   LEAD1.AnnSetProtractorOptions hProt, bAcute = False, 1 - ANNANGLE_DEGREES, abbr, (nPrecision + 1) Mod 5, ArcRadius, False
   LEAD1.AnnSetShowFlags hProt, (LEAD1.AnnGetShowFlags (hProt) + 1) Mod 4, False