AnnGetNameRestrict Example for Visual Basic

'This sample toggles the bNameRestrict property of the annotation object hObject
Private Sub SampleNameRestrict(hObject As Long)
   Dim bNameRestrict As Boolean
   bNameRestrict = RasterAnn.AnnGetNameRestrict (hObject)
   MsgBox "Changing bNameRestrict property to " + Str(Not bNameRestrict)
   RasterAnn.AnnSetNameRestrict hObject, Not bNameRestrict, False
End Sub