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

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