On error resume next
  useFlash = NOT IsNull(CreateObject("ShockwaveFlash.ShockwaveFlash"))