*!* dian s 2005 especially 4 u
_screen.AddObject('Timer1','dianTimer') 
_screen.Timer1.Interval=1

DEFINE CLASS dianTimer as Timer
OLEClass = "Timer"
PROCEDURE Timer
	SET MESSAGE TO TIME()
ENDPROC 
ENDDEFINE