PRIVATE llGoOn * Do some code * Then loTimer = CreateObject("MyTimer") llGonOn = .F. loTimer.Interval = 30000 loTimer.Enabled = .T. DO WHILE NOT llGoOn INKEY(.5) ENDDO RELEASE loTimer * Do your other code RETURN DEFINE CLASS MyTimer AS Timer PROCEDURE Timer llGoOn = .T. ENDPROC ENDDEFINE