Function CheckIE3D1()
	
	on error resume next
	vrml = (IsObject(CreateObject("Cortona.Control")))
	
	if vrml = true then
		CheckIE3D1 = true
	else
		CheckIE3D1 = false
	end if

End Function

Function CheckIE3D2()
	
	on error resume next
	vrml = (IsObject(CreateObject("bsContact.bsContact")))
	
	if vrml = true then
		CheckIE3D2 = true
	else
		CheckIE3D2 = false
	end if

End Function