Sub Paint(g As Graphics)
  // window.paint event
  dim f as FolderItem
  dim b as BinaryStream
  dim s as string
  dim d as CGDataProviderMBS
  dim p as CGPDFDocumentMBS
  
  // get a folderitem to a pdf file.
  f=SpecialFolder.Desktop.Child("notes.pdf")
  
  // load the content in a string variable
  b=f.OpenAsBinaryFile(false)
  s=b.Read(b.Length)
  b.Close
  
  // now make a CGDataProvider based on a string.
  d=CGDataProviderMBS.CreateWithData(s)
  
  // Open the PDF from the Data Provider
  p=CGOpenPDFDocumentMBS(d)
  
  // And play with it
  g.DrawCGPDFDocumentMBS p,p.MediaBox(1),1
  
  Exception
  // trouble goes here.
End Sub