Sub flash_Loading()

	on error resume next
	swplugin = ( IsObject(CreateObject("ShockwaveFlash.ShockwaveFlash.5")))
	
End Sub