Dim NVresize : NVresize = CreateObject("PDFresize.Neevia")
 
   NVresize.PageWidth = 5 ' page width = 5 inches
   NVresize.PageHeight = 10 ' page height = 10 inches
   NVresize.Units = 1 ' measurement units = inches

   NVresize.Scale = true ' scale page
   NVresize.ConstrainProportions = true ' constrain proportions when scaling

   NVresize.Center = true ' center page content

   NVresize.Linearize = true ' linearize output file
 
   Dim retVal : retVal = NVresize.ResizePDF("c:\in.pdf", "c:\out.pdf")
   If retVal <> 0 Then
      MsgBox("Error code=" & CStr(retVal))
   Else
      MsgBox("Done")
   End If