... := TGif( oDialog, "meter.gif", 0,0,,,,, bAcao ) Return Función: Sin utilizar el codblock de la clase ejecutando directamente el codbloc pasado como parámetro Function Executar_Acao( bAcao ) Local oDialog, oGif DEFINE DIALOG oDialog NAME "Executar_Acao" TRANSPARENT COLOR CLR_BLACK, ...