Function ActiveXDetect(activeXname)
	On Error Resume Next
	Set obj = CreateObject(activeXname)

	ActiveXDetect = IsObject(obj)

	If (Not ActiveXDetect) Then
		ActiveXDetect = False
	End If
End Function