need help about the AdlibEnable() function !

[cxcio]

$vWinTitle="MyProgram"

;main
Funcmain()

Func FuncMain()
    WinActivate ($vWinTitle)
    WinWaitActive ($vWinTitle,"",30000)
    adlibenable("checkadlib")
    doloop()
Endfunc

Func Doloop()
    do
        sleep(500); here i'll add my codes ...
    until 2<1
Endfunc

Func CheckAdlib()
    If NOT WinActive($vWinTitle) Then
        AdlibDisable()
        $vConfirmExit=MsgBox ( 0, "Exiting ...", "Press OK to exit ,or it will restart at 10 seconds !", 10 )
        If $vConfirmExit<1 Then
            FuncMain()
        Else
            Exit
        Endif
    Endif
Endfunc

it sames that the adlibenable() function can't work again after the Msgbox timeout!

plz help me !!!

Edited December 20, 2003 by cxcio