' IMPORTANT: In registered full version .Producer field is available only for registered users having additional "Application License"

 ' create PDFDoc object
 Set PDFDoc = CreateObject("PDFDocScout.PDFDocument")
 ' initialize library
 PDFDoc.InitLibrary "demo", "demo"
 
 ' set output filename for PDF document
 PDFDoc.OutputFileName = "pdfdocscout_example_document_info.pdf"
 ' automatically open generated PDF document in default PDF viewer application
 PDFDoc.AutoOpenGeneratedPDF = true

 PDFDoc.DocumentInfo.Author = "Demo Author"
 PDFDoc.DocumentInfo.CreationDate = "1/1/2008"
 PDFDoc.DocumentInfo.Creator = "Demo Creator"
 PDFDoc.DocumentInfo.KeyWords = "Demo KeyWords"
 PDFDoc.DocumentInfo.Producer = "Demo Producer"
 PDFDoc.DocumentInfo.Subject = "Demo Subject"
 PDFDoc.DocumentInfo.Title = "Demo Title"

 ' starts PDF document generation
 PDFDoc.BeginDocument

 ' add text to current page - draw text at (100,100) and rotate at 15 degrees 
 PDFDoc.Page.AddText "Hello, World!", 100, 100, 15 

 ' close pdf document generation
 PDFDoc.EndDocument

 ' disconnect from library
 Set PDFDoc = Nothing