1
 2
 3
 4
 5
 6
 7
 8
 9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24

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

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

   DC.setParameter("DocumentOutputFormat", "TIFF")
   DC.setParameter("DocumentOutputName", "testTIFF_VBNET")
   DC.setParameter("DocumentOutputFolder", "c:\users\public\")

   DC.setParameter("TIFFType", "tiff24lzw")

   DC.setParameter("DocumentResolution", "150")

   DC.setParameter("MPTiff", "True")

   DC.setInputDocument(documentToConvert)

   Dim RVal As Integer : RVal = DC.create
   DC = Nothing

   If (RVal <> 0) Then
      MsgBox("Error while creating document!!!")
   Else
      MsgBox("Done Converting !!!")
   End If