sub VbFlashDetect()
	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")))
	flash8Installed = (IsObject(CreateObject("ShockwaveFlash.ShockwaveFlash.8")))
	flash9Installed = (IsObject(CreateObject("ShockwaveFlash.ShockwaveFlash.9")))
end sub