thisform.MyTimer.Interval = 2000 *-- Form.MyTimer.Timer() KEYBOARD '{ENTER}' *-- Form.cmdTest.Click() thisform.MyTimer.Enabled = .T. =MessageBox('Test') thisform.MyTimer.Enabled = .F.You can extend this by writing a global function for displaying messages which would create a timer for each message and then destroy it or control its enabling/disabling.