# Code Samples - Neevia PDFcompress

## Example 1: Compress a PDF file (high image quality, low compression) - VB.NET Copy

Make sure Neevia PDF compress is installed on your Windows machine then use the Visual Basic.NET code below. What it does is compress each page the input PDF document and at the same time preserve the image quality.
  1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20  Dim NVcomp : NVcomp = CreateObject("PDFcompress.Neevia") NVcomp.CI = "jpx" NVcomp.CQ = 75 NVcomp.GI = "jpx" NVcomp.GQ = 75 NVcomp.MI = "jbig2l" NVcomp.MQ = 5 'For better compression uncomment the line below ' NVcomp.CreateObjectStreams = true Dim retVal : retVal = NVcomp.CompressPDF("c:\in.pdf","c:\out.pdf") If retVal <> 0 Then MsgBox("Error code=" & CStr(retVal)) Else MsgBox("Done") End If