PC Toledo

tenho a seguinte tela e quero alterar a CAPTION do oLabel2 quando for alterada a data no dDatepicker1.

@ 100,59 GET DATEPICKER oDatepicker1 VAR dDatepicker1 SIZE 183,40 ;
FONT HFont():Add( 'Verdana',0,-21,700,,,) ;
ON CHANGE {|| oDatepicker1_onChange( ) }

@ 23,108 SAY oLabel2 CAPTION "" SIZE 341,26 ;
STYLE SS_CENTER ;
FONT HFont():Add( 'Verdana',0,-16,400,,,)

estou fazendo assim mas nao esta funcionando

STATIC FUNCTION oDatepicker1_onChange

M->SEM_ANA := "DomingoSegundaTerca Quarta Quinta Sexta Sábado "
M->DIA_EXT := TRIM( SUBS( M->SEM_ANA, DOW( dDatepicker1 ) * 7 - 6 , 7 ) ) +;
", " + ALLTRIM( STR (DAY( dDatepicker1 ), 2 ) )
M->ME_SES := "Janeiro FevereiroMarço Abril Maio Junho " +;
"Julho Agosto Setembro Outubro Novembro Dezembro "
M->DIA_EXT += " de " + TRIM( SUBS( ME_SES, MONTH( dDatepicker1 ) * 9 - 8 , 9 ) ) +;
" de " + TRAN( YEAR( M->DAT_HOJE ), "@E 9999" )
M->DIA_EXT += " de " + TRIM( SUBS( ME_SES, MONTH( dDatepicker1 ) * 9 - 8 , 9 ) ) + " de " + TRAN( YEAR( dDatepicker1 ), "@E 9999" )
Thisform:oLabel2:Title :=M->DIA_EXT
Thisform:oLabel2:Release()
RETURN .T.

Alguem da uma dica de onde esta o erro?

ja tentei assim Thisform:oLabel2:Caption :=M->DIA_EXT mas da erro de execução

Tenta:

Thisform:oLabel2:setText(M->DIA_EXT)
Até+

:{ :{ :{ :{
Valeu muito obrigado