dim ie3Bln,ie4Bln,ie5Bln

ie3Bln = false
ie4Bln = false
ie5Bln = false

sub detect
	on error resume next
	ie3Bln = (isObject(createObject("PDF.PdfCtrl.3")))
	ie4Bln = (isObject(createObject("PDF.PdfCtrl.4")))
	ie5Bln = (isObject(createObject("PDF.PdfCtrl.5")))
end sub
call detect