AnnEnumerate example for Visual Basic

Note: This topic is for Document/Medical only.

'This event is fired for each annotation
'Displays the handle for each annotation
Private Sub LEAD1_AnnEnumerate(ByVal hObject As Stdole.OLE_HANDLE)
MsgBox "hObject: " & Hex(hObject)
End Sub

'Load image and annotation file and then enumerate all the annotations
Private Sub Command1_Click()
LEAD1.Load App.Path & "\rgbw.bmp", 0, 0, 1
LEAD1.AnnLoad App.Path & "\rgbw.ann", 0
LEAD1.AnnUserMode = ANNUSERMODE_RUN
LEAD1.AnnEnumerate LEAD1.AnnContainer, ANNFLAG_RECURSE + ANNFLAG_NOTTHIS, ""
End Sub