Function DetectUnityWebPlayerActiveX

	On Error Resume Next
	Dim tControl
	Dim res : res = 0
	Set tControl = CreateObject("UnityWebPlayer.UnityWebPlayer.1")

	If IsObject(tControl) Then
		res = 1
	End If

	DetectUnityWebPlayerActiveX = res

End Function