Private check_for_object
      On Error Resume Next
      Set check_for_object = CreateObject("ShockwaveFlash.ShockwaveFlash." & flash_required_version)
      If IsObject(check_for_object) Then flash_installed = true