AnnGetNameRestrict example for Visual Basic

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