Function doRealActiveXCheck
	On error resume next
	Set doRealActiveXCheck = false
	Set realObject = CreateObject("rmocx.RealPlayer G2 Control")
	If IsObject(realObject) Then
		doRealActiveXCheck = true
	End If
End Function