1
 2
 3
 4
 5
 6
 7
 8
 9
10
11
12

   Dim documentToConvert As String : documentToConvert = "c:\users\public\test.tif"

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

   Dim RVal As Integer : RVal = DC.ConvertImage(documentToConvert, documentToConvert & ".pdf")
   DC = Nothing

   If (RVal <> 0) Then
     MsgBox("Error converting image !!!")
   Else
     MsgBox("Done converting!!!")
   End If