Hrmcobol, en la WORKING del Form defines una variable GLOBAL numérica por ejemplo GLB-TIMER.
En el Timer definido a 1 segundo, pones el código siguiente:
Código COBOL:
IF GLB-TIMER > 60 *> por ejemplo 1 minuto
INVOKE POW-SELF "CloseForm"
END-IF
ADD 1 TO GLB-TIMER
En los eventos "MouseMove" y "KeyPress" del Form, pones el código:
Listo
