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() ' Add second page to PDF document Dim secondPdfPage As PdfPage = pdfDocument.AddPage() ' Add third page to PDF document Dim thirdPdfPage As PdfPage = pdfDocument.AddPage() Cursor = Cursors.WaitCursor Dim outPdfFile As String = "DemoAppFiles\Output\PDF_Creator\Internal_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 Internal Links in PDF Document", titleFont) Dim addElementResult As AddElementResult = pdfPage.AddElement(titleTextElement) yLocation = addElementResult.EndPageBounds.Bottom + 15 ' Add a text in second page Dim secondPageTextElement As New TextElement(5, 5, "This text is the target of an internal text link", subtitleFont) secondPdfPage.AddElement(secondPageTextElement) ' Add a text in third page Dim thirdPageTextElement As New TextElement(5, 5, "This text is the target of an internal image link", subtitleFont) thirdPdfPage.AddElement(thirdPageTextElement) ' Make a text in PDF an internal link to the second page of the PDF document ' Add the text element Dim text As String = "Click this text to go to the second page of this document!" Dim textWidth As Single = linkTextFont.GetTextWidth(text) Dim linkTextElement As New TextElement(xLocation, yLocation, text, linkTextFont) linkTextElement.ForeColor = Color.Navy addElementResult = pdfPage.AddElement(linkTextElement) ' Make the text element an internal link to the second page of this document Dim linkRectangle As New RectangleF(xLocation, yLocation, textWidth, addElementResult.EndPageBounds.Height) ' Create the destination in second page Dim secondPageDestination As New ExplicitDestination(secondPdfPage, New PointF(5, 5)) ' Create the internal link from text element to second page Dim internalLink As New InternalLinkElement(linkRectangle, secondPageDestination) ' Add the internal link to PDF document pdfPage.AddElement(internalLink) yLocation = addElementResult.EndPageBounds.Bottom + 10 ' Make an image in PDF an internal link to the third page of the PDF document Dim subtitleTextElement As New TextElement(xLocation, yLocation, "Click the image below to go to the third page of this document:", 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) ' Make the image element an internal link to the third page of this document linkRectangle = addElementResult.EndPageBounds ' Create the destination in third page Dim thirdPageDestination As New ExplicitDestination(thirdPdfPage, New PointF(5, 5)) ' Create the internal link from image element to third page internalLink = New InternalLinkElement(linkRectangle, thirdPageDestination) ' Add the internal link to PDF document pdfPage.AddElement(internalLink) ' 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