... oMeter, oText, oDlg, @lEnd, oBtn ),; lEnd := .t., oDlg:End() } ACTIVATE DIALOG oDlg CENTERED ; VALID lEnd return lCancel Si deseas algo mas vistoso, prueba este ejemplo: //--------------------------------------------------------------------- Function ReIndexar(aAlias, lTodo) local oDlg, ...