**** awal koding ****
_screen.AddObject('Timer1','dianTimer' )
_screen.Timer1.Interval=10 && anda sesuaikan sendiri, 10 hanyalah sample

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