AnnSetUser example for Visual Basic

Note: This topic is for Document/Medical only.

Private Sub Command8_Click()
   ' hide the selected objects
   LEAD1.AnnSetVisible LEAD1.AnnContainer, False, ANNFLAG_RECURSE + ANNFLAG_SELECTED, ""
   ' set the selected objects to belong to user XXX
   LEAD1.AnnSetUser LEAD1.AnnContainer, "", "xxx", True
End Sub