UUIRTLearnIR function keeps returning a false value

Hello every one
this instruction has been working for months:
res = UUIRTLearnIR(hDrvHandle, UUIRTDRV_IRFMT_UUIRT,
VarPtr(szLearnBuffer), IRLearn, 0, gbLrnAbort, 0, INVALID_HANDLE_VALUE, 0)
Suddenly it keeps returning false. More, this sub is called once and
progress equals -1.
The gbLrnAbort variable has a false value before calling UUIRTLearnIR. It is passed ByRef. When IRLearnCallback is called automatically, the gbLrnAbort variable has still a false value but progress has a -1 value !
The LrnHelper app works fine.
My dev is done with Microsoft Visual Basic Express 2008.
Does any one ca help me ? Has anyone written a code for VB express 2008 ? If yes, would you have an exemple of it ?
Thank you very much for your help. I'am going slightly mad with this. I have been working non stop on this bug for 3 days.
Regards,
lagommette
this instruction has been working for months:
res = UUIRTLearnIR(hDrvHandle, UUIRTDRV_IRFMT_UUIRT,
VarPtr(szLearnBuffer), IRLearn, 0, gbLrnAbort, 0, INVALID_HANDLE_VALUE, 0)
Suddenly it keeps returning false. More, this sub is called once and
progress equals -1.
The gbLrnAbort variable has a false value before calling UUIRTLearnIR. It is passed ByRef. When IRLearnCallback is called automatically, the gbLrnAbort variable has still a false value but progress has a -1 value !
The LrnHelper app works fine.
My dev is done with Microsoft Visual Basic Express 2008.
Does any one ca help me ? Has anyone written a code for VB express 2008 ? If yes, would you have an exemple of it ?
Thank you very much for your help. I'am going slightly mad with this. I have been working non stop on this bug for 3 days.
Regards,
lagommette