Mudar um label em uma janela inativa

[Paulao]

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

Código: Selecionar todos

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.

Código: Selecionar todos

Func Gera_rep()

Form_pag.Label_1.Blink := .T.


outros comandos


return