'this method will demonstrate how to create a PDF/A-1b compliant
'document from a compressed image of a Document
Public Sub SaveImageAsPDFa(ByVal imageFileName As String, ByVal targetDocument As PdfDocument, ByVal iccFileName As String)
  Dim targetPageOptions As New PageOptions
  'using standard page size
  targetPageOptions.MediaHeight = 72.0 * 11
  targetPageOptions.MediaWidth = 72.0 * 8.5
  targetDocument.CreatePage(-1, targetPageOptions)
  targetDocument.AddImage(0, 0, 0, targetPageOptions.MediaWidth, targetPageOptions.MediaHeight, PDF_ImageFitShrink, imageFileName, 0)
 
  Dim convertOpts As New ConvertOptions
  'specify a valid ICC profile to embed
  convertOpts.IccProfileFilename = iccFileName
  convertOpts.Type = PDF_PdfType_PdfA1b
 
  'save the converted PDF/A-1b document
  Dim saveOpts As New SaveOptions
  saveOpts.Filename = "imagePDFa.pdf"
  targetDocument.SaveDocument(saveOpts)
End Sub