_screen.AddObject('lblFlash', 'label') _screen.lblFlash.AutoSize = .T. _screen.lblFlash.Caption = "You've been flashed!" PUBLIC oTimer oTimer = CREATEOBJECT('theflasher') DEFINE CLASS theflasher AS timer Interval = 200 PROCEDURE timer _screen.lblFlash.Visible = not _screen.lblFlash.Visible ENDPROC ENDDEFINEVisually, You can drop the timer object on a form and put the code in the Timer Event there too.