' create PDFDoc object
Set PDFDoc = CreateObject("PDFDocScout.PDFDocument")
' initialize library
PDFDoc.InitLibrary "demo", "demo"
' set output filename for PDF document
PDFDoc.OutputFileName = "pdfdocscout_example_reset_form_action.pdf"
' automatically open generated PDF document in default PDF viewer application
PDFDoc.AutoOpenGeneratedPDF = true
' starts PDF document generation
PDFDoc.BeginDocument
'Add new Reset Form Action
Set ResetFormAction = PDFDoc.AddResetFormAction()
' Add button
Set btnTest = PDFDoc.Page.AddButton ("btnDemo", 100, 150, 200, 110)
btnTest.Caption = "Run Reset Form Action"
' Set button action
btnTest.OnMouseDown = ResetFormAction
' Add controls
Set testCheckbox = PDFDoc.Page.AddCheckbox("testCheckbox", 100, 200, 150, 210)
testCheckbox.Caption = "testCheckbox"
Set
EditField = PDFDoc.Page.AddEdit
("testTextBox",
100, 220, 150, 230)
EditField.Text = "testTextBox"
' close pdf document generation
PDFDoc.EndDocument
' disconnect from library
Set PDFDoc = Nothing