Private Sub createPdfButton_Click(ByVal sender As Object, ByVal e As EventArgs) Handles createPdfButton.Click
    ' Create a PDF document
    Dim pdfDocument As New Document()

    ' Set license key received after purchase to use the converter in licensed mode
    ' Leave it not set to use the converter in demo mode
    pdfDocument.LicenseKey = "fvDh8eDx4fHg4P/h8eLg/+Dj/+jo6Og="

    ' Add a page to PDF document
    Dim pdfPage As PdfPage = pdfDocument.AddPage()

    Cursor = Cursors.WaitCursor
    Dim outPdfFile As String = "DemoAppFiles\Output\PDF_Creator\File_Links.pdf"
    Try
        ' The titles font used to mark various sections of the PDF document
        Dim titleFont As PdfFont = pdfDocument.AddFont(New Font("Times New Roman", 10, FontStyle.Bold, GraphicsUnit.Point))
        Dim subtitleFont As PdfFont = pdfDocument.AddFont(New Font("Times New Roman", 8, FontStyle.Regular, GraphicsUnit.Point))

        ' The links text font
        Dim linkTextFont As PdfFont = pdfDocument.AddFont(New Font("Times New Roman", 8, FontStyle.Bold, GraphicsUnit.Point))
        linkTextFont.IsUnderline = True

        Dim xLocation As Single = 5
        Dim yLocation As Single = 5

        ' Add document title
        Dim titleTextElement As New TextElement(xLocation, yLocation, "Create File Links in PDF Document", titleFont)
        Dim addElementResult As AddElementResult = pdfPage.AddElement(titleTextElement)

        yLocation = addElementResult.EndPageBounds.Bottom + 15

        ' Make a text in PDF a link to an external file

        ' Add the text element
        Dim text As String = "Click this text to open an external file!"
        Dim textWidth As Single = linkTextFont.GetTextWidth(text)
        Dim linkTextElement As New TextElement(xLocation, yLocation, text, linkTextFont)
        linkTextElement.ForeColor = Color.Navy
        addElementResult = pdfPage.AddElement(linkTextElement)

        ' Create the file link element having the size of the text element
        Dim linkRectangle As New RectangleF(xLocation, yLocation, textWidth, addElementResult.EndPageBounds.Height)
        Dim filePath As String = "..\..\Input\Linked_Files\Linked_External_File.txt"
        Dim fileLink As New FileLinkElement(linkRectangle, filePath)

        ' Add the file link to PDF document
        pdfPage.AddElement(fileLink)

        yLocation = addElementResult.EndPageBounds.Bottom + 10

        ' Make an image in PDF a link to an external file

        Dim subtitleTextElement As New TextElement(xLocation, yLocation, "Click the image below to open an external file:", subtitleFont)
        addElementResult = pdfPage.AddElement(subtitleTextElement)

        yLocation = addElementResult.EndPageBounds.Bottom + 5

        ' Add the image element
        Dim linkImageElement As New ImageElement(xLocation, yLocation, 120, "DemoAppFiles\Input\Images\logo.jpg")
        addElementResult = pdfPage.AddElement(linkImageElement)

        ' Create the file link element having the size of the image element
        linkRectangle = addElementResult.EndPageBounds
        fileLink = New FileLinkElement(linkRectangle, filePath)

        ' Add the file link to PDF document
        pdfPage.AddElement(fileLink)

        ' Save the PDF document in a memory buffer
        Dim outPdfBuffer() As Byte = pdfDocument.Save()

        ' Write the memory buffer in a PDF file
        System.IO.File.WriteAllBytes(outPdfFile, outPdfBuffer)
    Catch ex As Exception
        ' The PDF creation failed
        MessageBox.Show(String.Format("Create PDF Document Error. {0}", ex.Message))
        Return
    Finally
        ' Close the PDF document
        pdfDocument.Close()

        Cursor = Cursors.Arrow
    End Try

    ' Open the created PDF document in default PDF viewer
    Try
        Process.Start(outPdfFile)
    Catch ex As Exception
        MessageBox.Show(String.Format("Cannot open created PDF file '{0}'. {1}", outPdfFile, ex.Message))
    End Try
End Sub