AnnGetAutoMenuItemEnable example for Visual Basic

'This example disables the "delete" menu item from the annotation hGlobalAnn.
'Global Declaration: Dim long hGlobalAnn
Private Sub AnnGetAutoMenuEnable_Click()
Dim iEnable As AnnMenuConstants

RasterAnn.AnnSetAutoMenuItemEnable hGlobalAnn, ANN_OBJECT_CONTAINER, ANN_AUTOTEXT_MENU_DELETE, ANN_MENU_DISABLED, ANN_FLAG_RECURSE + ANN_FLAG_SELECTED, ""
RasterAnn.AnnGetAutoMenuItemEnable hGlobalAnn, ANN_OBJECT_CONTAINER, ANN_AUTOTEXT_MENU_DELETE
iEnable = RasterAnn.AnnAutoMenuItemEnable
Select Case iEnable
Case ANN_MENU_ENABLED:
    MsgBox "ANN_MENU_ENABLED"
Case ANN_MENU_DISABLED
    MsgBox "ANN_MENU_DISABLED"
Case ANN_MENU_DEFAULT
    MsgBox "ANN_MENU_DEFAULT"
    End Select
End Sub