Set PDFDoc = CreateObject("PDFDocScout.PDFDocument") ' create PDFDoc object
 PDFDoc.InitLibrary "demo", "demo" ' initialize library
  
 PDFDoc.OutputFileName = "pdfdocscout_example_action_annotation.pdf" ' set output filename for PDF document
 PDFDoc.AutoOpenGeneratedPDF = true ' automatically open generated PDF document in default PDF viewer application
  
 PDFDoc.BeginDocument ' starts PDF document generation
  
 ' Add URL Action
 Set Action = PDFDoc.AddURLAction ("http://bytescout.com")
 ' Add Annotation for URLAction
 PDFDoc.Page.AddActionAnnotation 100, 50, 150, 100, Action
  
' Add button
 Set btnTest = PDFDoc.Page.AddButton ("btnTest", 100, 100, 150, 110)
 ' Set button action
 btnTest.OnMouseDown = Action
  
 PDFDoc.EndDocument ' close pdf document generation
  
 ' disconnect from library
 Set PDFDoc = Nothing

Download example source code: pdfdocscout_example_action_annotation.zip (55,6 KB)