DECLARE Sleep IN WIN32API INTEGER dwMillisecs =Sleep(30*1000) && ms >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 > >