TEAM ENVI^ ENVIMODE=1| ENVI^ FORCELOCAL=1
WIN1 
_SUB WIN1,W289H249,新窗口1,
    Set @this.Cursor=32649
    EDIT EDIT2,L58T44W157H98,EDIT2,,
    SET-def  id=0
    TIME ,2000, CALL OnTimer1
_END
_SUB OnTimer1
    CALC #id= ( %id% +1 ) % 3
    IFEX $0=%id%, Set @this.Cursor=32649
    IFEX $1=%id%, Set @this.Cursor=32651
    IFEX $2=%id%, Set @this.Cursor=0
_END

