... 16384, 16384 ) IF nCom < 0 BREAK ENDIF BUILDCOMMDCB( "COM1:9600,N,8,1", @cDcb ) IF !SETCOMMSTATE( nCom, cDcb ) BREAK ENDIF EnableCommNotification( nCom, oWnd:hWnd, 1, -1 ) oWnd:bCommNotify = { | nCom | CheckSerial()} RECOVER nCom = -1 END SEQUENCE RETURN (FONTE2) Exemplo ...