How to add a link annotation to the currently displayed page in Acrobat

This code sample is posted here for the general benefit of the PDF development community. Attribution and usage guidelines are as noted in the code source; please respect the wishes of the author when using this code.

‘  *** Please note there does not appear to be a way 

‘  *** to set the destination of any links created in this way
‘  To add a link annotation to the currently displayed
‘ page in Acrobat:
‘  It will be added as the first annotation in the page’s
‘ annotation array.
Dim AcroApp As CAcroApp
Dim AVDoc As CAcroAVDoc
Dim AVPage As CAcroAVPageView
Dim PDPage As CAcroPDPage
Dim PDDoc As CAcroPDDoc
Dim Rect As CAcroRect
Dim LinkAnnot As CAcroPDAnnot
Set AcroApp = CreateObject(‘AcroExch.App’)
Set Rect = CreateObject(‘AcroExch.Rect’)
‘ set the values below to whatever coodinate you desire the link to be at
Rect.Top = 500
Rect.Left = 20
Rect.Right = 200
Rect.Bottom = 490
Set AVDoc = AcroApp.GetActiveDoc
Set PDDoc = AVDoc.GetPDDoc
Set AVPage = AVDoc.GetAVPageView
Set PDPage = PDDoc.AcquirePage(AVPage.GetPageNum)
Set LinkAnnot = PDPage.AddNewAnnot(-1, ‘Link’, Rect)