On Error Resume Next
		        flash2Installed = (IsObject(CreateObject("ShockwaveFlash.ShockwaveFlash.2")))
		        flash3Installed = (IsObject(CreateObject("ShockwaveFlash.ShockwaveFlash.3")))
		        flash4Installed = (IsObject(CreateObject("ShockwaveFlash.ShockwaveFlash.4")))
		        flash5Installed = (IsObject(CreateObject("ShockwaveFlash.ShockwaveFlash.5")))
		        flash6Installed = (IsObject(CreateObject("ShockwaveFlash.ShockwaveFlash.6")))
		        flash7Installed = (IsObject(CreateObject("ShockwaveFlash.ShockwaveFlash.7")))
		        flash7Installed = (IsObject(CreateObject("ShockwaveFlash.ShockwaveFlash.8")))
		On Error goto 0