on error resume next
if(navigator.javaEnabled) then
IsExplorer=1
IsWebSpeech=IsObject(CreateObject("WebSpeech.WebSpeech.2"))
end if
 on error resume next
 if(navigator.javaEnabled) then
  IsExplorer=1
  IsWebSpeech=IsObject(CreateObject("WebSpeech.WebSpeech"))
 end if

 sub WebSpeech_OnStartSpeaking(StartReason)
  DoOnStartSpeaking(StartReason)
end sub