include "Fwce.ch"

FUNCTION MAIN()

LOCAL oWnd
LOCAL cVar1 := SPACE( 20 )

DEFINE WINDOW oWnd TITLE "sPINNER"

@ 1, 10 GET cVar1 SIZE 70, 20 OF oWnd

oGet:bGotFocus := {|| SendMessage( oGet:hWnd, IDC_SPIN1, CCM_SETVERSION, COMCTL32_VERSION, 0 ) }

ACTIVATE WINDOW oWnd

RETURN NIL

seeit please http://www.pocketpcdn.com/articles/pocketpcspin.html