Membuat label mutar pada vfp

Silahkan....
simpan dalam prg :

Public sudut,Top,Left,radius,xx
xx=0
loForm=Createobject('oForm')
loForm.Show(1)
Return

Define Class oForm As Form
AutoCenter=.T.
Height=400
Width=600
Caption="LABEL MUTER"

Add Object label1 As Label With ;
Top = 180, ;
Left = 250, ;
Autosize=.T.,;
FontSize=12,;
FontBold=.t.,;
Caption="dodol",;
ForeColor=RGB(IIF(200+xx>255,0,200+xx),0,0)

Add Object Timer1 As oTimer With ;
Interval = 10

Add Object cmdClose As CommandButton With ;
Top = 360, ;
Left = 500, ;
Height = 30, ;
Width = 80, ;
Caption = "\<Close"

Procedure Init
** Public sudut,Top,Left,radius,xx
** xx=0
sudut=0
Top=180
Left=288
radius=120
ENDPROC

Procedure cmdClose.Click
Thisform.Release
Endproc
Enddefine

Define Class oTimer As Timer
OleClass = "Timer"
Procedure Timer

sudut=sudut+0.03
loForm.label1.Left=Left+Sin(sudut)*radius
loForm.label1.Top=Top+Cos(sudut)*radius
Endproc
Enddefine