Antonio : SPINNER GET : WHY NOT run ?

[Silvio]

#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