Public Shared Sub CompressDataStreams(inFilename As String, outFilename As String)
    ' create stream compression converter
    Dim converter As New Vintasoft.Imaging.Pdf.Processing.BasicTypes.PdfStreamCompressionConverter(Vintasoft.Imaging.Pdf.PdfCompression.Zip)
    converter.CompressionSettings.ZipCompressionLevel = 9
    converter.ProcessImageStreams = False
    converter.ProcessDataStreams = True

    ' create compressor
    Dim compressor As New Vintasoft.Imaging.Pdf.Processing.PdfDocumentConverter("Data resources compressor", New Vintasoft.Imaging.Pdf.Processing.PdfDocumentProcessingTree(converter))

    ' execute compression
    compressor.Convert(inFilename, outFilename)
End Sub

public static void CompressDataStreams(string inFilename, string outFilename)
{
    // create stream compression converter
    Vintasoft.Imaging.Pdf.Processing.BasicTypes.PdfStreamCompressionConverter converter = 
        new Vintasoft.Imaging.Pdf.Processing.BasicTypes.PdfStreamCompressionConverter(Vintasoft.Imaging.Pdf.PdfCompression.Zip);
    converter.CompressionSettings.ZipCompressionLevel = 9;
    converter.ProcessImageStreams = false;
    converter.ProcessDataStreams = true;

    // create compressor
    Vintasoft.Imaging.Pdf.Processing.PdfDocumentConverter compressor =
        new Vintasoft.Imaging.Pdf.Processing.PdfDocumentConverter("Data resources compressor",
            new Vintasoft.Imaging.Pdf.Processing.PdfDocumentProcessingTree(converter));

    // execute compression
    compressor.Convert(inFilename, outFilename);
}