function DetectActiveX (controlName)
		on error resume next
		dim tControl
		dim res
		res = 0
		set tControl = CreateObject(controlName)
		if IsObject(tControl) then
			res = 1
		end if
		DetectActiveX = res
	end function