break on

Dim $font
Dim $oPDF

$oPDF = CreateObject("PDFlib_com.PDF")

if $oPDF.begin_document("hello.pdf", "") = -1
 ? "Error: " + $oPDF.get_errmsg
 Quit(1)
endif

$oPDF.set_info("Creator", "hello.vbs")
$oPDF.set_info("Author", "Thomas Merz")
$oPDF.set_info("Title", "Hello, world (COM/WSH)!")

$= $oPDF.begin_page_ext(595, 842, "")

$font = $oPDF.load_font("Helvetica-Bold", "unicode", "")

$oPDF.setfont($font, 24)

$oPDF.set_text_pos(50, 700)
$oPDF.show("Hello, world!")
$oPDF.continue_text("(says COM/VBS)")

$oPDF.end_page_ext("")
$oPDF.end_document("")

$oPDF = 0

exit 0