tentei de algumas formas mas nao funcionava ai criei um botao que resolveu a parada mas tenho de clicar nele queria um click automatico quando
entrar na rotina
#include "hwgui.ch"
************************************************************
FUNCTION abrearquivos( )
************************************************************
LOCAL oDlg, oLabel1, oLabel2, oLabel3, oLabel4, oProgressbar1, oProgressbar2, oLabel5
INIT DIALOG oDlg TITLE "Verificando Arquivos Aguarde..." AT 0, 0 SIZE 656,208 ;
STYLE WS_POPUP+WS_CAPTION+WS_SYSMENU+WS_SIZEBOX+DS_CENTER
ThisNFE := oDlg
@ 580,177 OWNERBUTTON oOwnerbutton1 SIZE 68,28 ;
TEXT 'Sair' ;
COORDINATES 0, 0, 0, 0 ;
ON CLICK {|| GERAARQUIVOS(), oDlg:Close() }
@ 14,18 SAY oLabel1 CAPTION "Arquivo:" SIZE 55,18
@ 76,18 SAY oLabel2 CAPTION "nome do arquivo" SIZE 566,18
@ 73,67 SAY oLabel4 CAPTION "nome do Indice" SIZE 566,18
@ 15,66 SAY oLabel3 CAPTION "Indice:" SIZE 45,18
@ 11,122 SAY oLabel5 CAPTION "Total:" SIZE 45,18
@ 12,89 PROGRESSBAR oProgressbar1 SIZE 635,18 BARWIDTH 20 QUANTITY 100
@ 12,143 PROGRESSBAR oProgressbar2 SIZE 635,18 BARWIDTH 26 QUANTITY 100
ACTIVATE DIALOG oDlg
RETURN oDlg:lresult