AnnHyperlinkMenu example for Visual Basic

'Please note the following:
'LEADRasterView1 refers to a LEADRasterView control
'Global declarations
Private WithEvents RasterAnn As LEADRasterAnnotation
Private RasterAnnToolbar As LEADRasterAnnToolBar

'In the Form_Load method:
Set RasterAnn = New LEADRasterAnnotation
Set RasterAnnToolbar = New LEADRasterAnnToolBar
RasterAnn.AnnParentRasterView = LEADRasterView1

'The AnnHyperLinkMenu event occurs whenever the user clicks on the Hyperlink menu item provided for automated annotations.
'The menu item is enabled and disabled using AnnHyperlinkMenuEnable property.
'The following is an example of AnnHyperlinkMenu event code, which includes a call to AnnSetHyperlinkMsg.
Private Sub RasterAnn_OnAnnHyperLinkMenu(ByVal aObjects As LEADRasterVariant, ByVal uCount As Integer)
Dim x As Integer

    'set HyperLink to type ANNLINK_ANNEVENT5
    'and set the 5 params to some values.
    For x = 0 To uCount - 1
        RasterAnn.AnnSetHyperlinkMsg aObjects.LongItemValue(x), ANN_LINK_ANNEVENT5, 5, 4, 3, 2, 1
    Next

End Sub