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="Feihung",;
        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