1
 2
 3
 4
 5
 6
 7
 8
 9
10
11

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

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

  DC = Nothing

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