AnnSetHyperlinkMsg example for Visual Basic

Note: Also works with Access 95 and 97.

Note: This topic is for Document/Medical only.

The following is an example of AnnHyperlinkMenu event code, which includes a call to AnnSetHyperlinkMsg.

Private Sub Lead1_AnnHyperlinkMenu(ByVal aObjects As Variant, 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
        Lead1.AnnSetHyperlinkMsg aObjects(x), ANNLINK_ANNEVENT5, 5, 4, 3, 2, 1
    Next
End Sub