1
 2
 3
 4
 5
 6
 7
 8
 9
10
11

   Dim DC As Object : DC = CreateObject("Neevia.docCreator")

   Dim RVal As Integer = DC.mergePDF("d:\file1.pdf","d:\file2.pdf", "d:\out.pdf")

   DC = Nothing

   If RVal <> 0 Then
      MsgBox("There was an error merging!!!")
   Else
      MsgBox("Done!!!")
   End If