Function FlashInstaladoIE()
   on error resume next 
   FlashInstaladoIE = (IsObject(CreateObject("ShockwaveFlash.ShockwaveFlash.8"))) 
End Function

Function ShockwaveInstaladoIE()
   on error resume next 
   ShockwaveInstaladoIE = (IsObject(CreateObject("SWCtl.SWCtl.8"))) 
End Function