Pessoal, esta deve ser fãcil mas não consegui, eu quero fazer piscar o Label_1, mas eu quero que comece a piscar quando eu clicar confirmar e o foco for para outra função como mostra abaixo
Define WINDOW Form_rep;
AT 0, 0 ;
WIDTH 800 ;
HEIGHT 400 ;
TITLE "Replica lote" ;
ICON cPathImagem+'display.ico';
MODAL;
NOSIZE
@ 125,50 LABEL Label_1 ;
VALUE 'Blink Test:' AUTOSIZE ACTION This.Blink := .T.
*__________________
DEFINE BUTTONEX BTN_GRAVA
ROW 330
COL 270
WIDTH 100
HEIGHT 030
CAPTION 'Confirmar'
PICTURE cPathImagem+'ok.bmp'
FONTNAME "Tahoma"
FONTBOLD .T.
LEFTTEXT .F.
ACTION Gera_rep()
END BUTTONEX
DEFINE BUTTONEX BTN_CANCELA
ROW 330
COL 395
WIDTH 100
HEIGHT 030
CAPTION 'Fechar'
PICTURE cPathImagem+'cancela.bmp'
FONTNAME "Tahoma"
FONTBOLD .T.
LEFTTEXT .F.
ACTION form_rep.release
END BUTTONEX
END WINDOW
CENTER WINDOW FORM_rep
ACTIVATE WINDOW FORM_rep
return .t.
Func Gera_rep()
Form_pag.Label_1.Blink := .T.
outros comandos
return