function DetectQuest3DPlayerActiveX
		on error resume next
		dim tControl
		dim res
		res = 0
		set tControl = CreateObject("Quest3DActiveX4.Quest3DCtrl4.2")
		if IsObject(tControl) then
			res = 1
		end if
		DetectQuest3DPlayerActiveX = res
	end function