Function checkIEFlash()
	On Error Resume Next
	checkIEFlash = 0
	For ver = 1 To 10
		Set testObj = CreateObject("ShockwaveFlash.ShockwaveFlash." & ver)
		If Err.Description = "" Then checkIEFlash = CStr(ver)
		Err.Clear()
	Next
	Set x = Nothing
End Function