** mztolo 2007
SET TALK OFF 
CLEAR 
SET ESCAPE ON  

PUBLIC oldColor 
LOCAL odForm as Form 

_screen.visible=.t. 
_screen.AddObject("anu","dTimer" ) 
oldColor=_screen.BackColor  

odForm=CREATEOBJECT('xFORM' ) 
odForm.Show(1) 
RETURN 

DEFINE CLASS xFORM as Form 
autocenter=.t. 
height=400 
width=700 
Caption="Pelangi........." 

ADD OBJECT keluar AS commandbutton WITH ; 
Top = 360, ; 
Left = 500, ; 
Height = 30, ; 
Width = 80, ; 
Caption = "\<Close" 

PROCEDURE keluar.Click 
_screen.RemoveObject('anu' ) 
_screen.BackColor=oldColor 
Thisform.release 
ENDPROC 
ENDDEFINE 

DEFINE CLASS dTimer as Timer 
OLEClass = "Timer" 
Interval = 1000 
PROCEDURE Timer 
_screen.LockScreen=.t. 
_screen.backcolor=rgb(255,255*(rand()-0),255*(rand()-0 )) 
_screen.LockScreen=.f. 
_screen.refresh 
ENDPROC  
ENDDEFINE