AnnGetProtractorOptions Example for Visual Basic

   Dim ArcRadius As Single, bAcute As Boolean, nUnit As Integer, nPrecision As Integer, abbr As String
   abbr = RasterAnn.AnnGetProtractorOptions (hProt)
  bacute =  RasterAnn.AnnProtractorAcute
  nunit = RasterAnn.AnnProtractorUnit
  nprecision = RasterAnn.AnnProtractorPrecision
 arcRadius = RasterAnn.AnnProtractorArcRadius
   RasterAnn.AnnSetProtractorOptions hProt, bAcute = False, 1 - ANN_ANGLE_DEGREES, abbr, (nPrecision + 1) Mod 5, ArcRadius, False
   RasterAnn.AnnSetShowFlags hProt, (RasterAnn.AnnGetShowFlags (hProt) + 1) Mod 4, False