... nCom, oWnd:hWnd, 1, -1 ) oWnd:bCommNotify = { | nCom | CheckSerial()} RECOVER nCom = -1 END SEQUENCE RETURN (FONTE2) Exemplo de código adaptado para poder funcionar corretamente: #include "FiveWin.ch" static oWnd, oTmr, nCom //----------------------------------------------------------------------------// ...