Function EvalVB(str)
	on error resume next
	EvalVB = Eval("(IsObject(CreateObject(""ShockwaveFlash.ShockwaveFlash.7"")))")
End Function