*!* dian s 2005 especially 4 u
LOCAL odForm as Form

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

DEFINE CLASS dianFORM as Form
autocenter=.t.
height=400
width=700
Caption="DS 2005"

ADD OBJECT label1 as label WITH ;
Top = 10, ;
Left = 500, ;
Autosize=.t.,;
Caption="DIAN SATRO JALAN-JALAN SORE"

ADD OBJECT text1 as textbox WITH ;
Top = 100, ;
Left = 500, ;
Width=100

ADD OBJECT Timer1 as dianTimer WITH ;
Interval = 10

ADD OBJECT keluar AS commandbutton WITH ;
Top = 360, ;
Left = 500, ;
Height = 30, ;
Width = 80, ;
Caption = "\<Close"
PROCEDURE init
=ADDPROPERTY(this,'kekiri',.t.)
ENDPROC

PROCEDURE keluar.Click
Thisform.release
ENDPROC
ENDDEFINE

DEFINE CLASS dianTimer as Timer
OLEClass = "Timer"
PROCEDURE Timer
LOCAL ndian
ndian=thisform.kekiri
if ndian
	IF Thisform.label1.Left=1
		Thisform.kekiri=.f.
	ELSE 
			Thisform.label1.Left=Thisform.label1.Left-1
	ENDIF 
ELSE 
	IF Thisform.label1.Left=500
		thisform.kekiri=.t.
	ELSE 
		Thisform.label1.Left=Thisform.label1.Left+1
	ENDIF 
endif
Thisform.refresh
ENDPROC 
ENDDEFINE