Imports Bytescout.PDFExtractor

Module Module1

    ' This sample demonstrates converting PDF to Scanned PDF
    Sub Main()

        ' Create Bytescout.PDFExtractor.UnsearchablePDFMaker instance
        Dim unsearchablePDFMaker = New UnsearchablePDFMaker()
        unsearchablePDFMaker.RegistrationName = "demo"
        unsearchablePDFMaker.RegistrationKey = "demo"

        ' Load sample PDF document
        unsearchablePDFMaker.LoadDocumentFromFile("sample1.pdf")

        ' Set PDF rendering resolution to 150 DPI. Higher value - better quality, but larger output file.
        unsearchablePDFMaker.RenderingResolution = 150
        ' Set embedded images format
        unsearchablePDFMaker.ImageFormat = EmbeddedImageFormat.PNG

        ' Process the document
        unsearchablePDFMaker.MakePDFUnsearchable("result.pdf")

        ' Cleanup
        unsearchablePDFMaker.Dispose()

        ' Open the result PDF file in default associated application
        Dim processStartInfo As New ProcessStartInfo("result.pdf")
        processStartInfo.UseShellExecute = True
        Process.Start(processStartInfo)

    End Sub

End Module