On error resume next
	v2=NOT IsNull(CreateObject("ShockwaveFlash.ShockwaveFlash.2"))
	v3=NOT IsNull(CreateObject("ShockwaveFlash.ShockwaveFlash.3"))
	v4=NOT IsNull(CreateObject("ShockwaveFlash.ShockwaveFlash.4"))
	v5=NOT IsNull(CreateObject("ShockwaveFlash.ShockwaveFlash.5"))
	v6=NOT IsNull(CreateObject("ShockwaveFlash.ShockwaveFlash.6"))