Imports Bytescout.PDF

Module Module1

    Sub Main()

        ' Open first document
        Dim document1 = New Document("document1.pdf")
        document1.RegistrationName = "demo"
        document1.RegistrationKey = "demo"
        ' Open second document
        Dim document2 = New Document("document2.pdf")
        document2.RegistrationName = "demo"
        document2.RegistrationKey = "demo"

        ' Append document2 to document1
        document1.MergeDocuments(document2)

        ' Save merged document
        document1.Save("MergedDocument.pdf")

        ' Open merged document in default PDF viewer application
        Process.Start("MergedDocument.pdf")

    End Sub

End Module