Speech Recognition Problem

[Piyush 0]

i was just playing with microsoft speech recognition library....here is my code...!

$RecoContext=ObjCreate("SAPI.SpSharedRecoContext")
if @error then
    Msgbox(0,"","Error opening the 'SAPI.SpSharedRecoContext' object. Error number: " & hex(@error,8))
    exit
endif
$voice=ObjCreate("SAPI.Spvoice")

$GRAMMER=$RecoContext.CreateGrammar
$GRAMMER.cmdloadfromfile("test.xml")
$GRAMMER.cmdsetruleidstate(0,1)
$event=ObjEvent($RecoContext,"event_")
MsgBox(0,'','now speak')

Func event_Recognition($1,$2,$3,$4)
    $text=$4.phraseinfo.gettext()
    MsgBox(0,'',$text)
EndFunc


While 1
    Sleep(10000)
WEnd

there are only three word that it recognises--Piyush,Play Music,Play Game

as i speak in the microphone..it recognises for almost the sleep time..ie 10 sec...after that it stops recognition..i don't what is happening..i think it is due to the while loop after 10 secs the loop continues and recogntion stops!!

please help me out