Hola Luis,
>.- Estoy programando bien dicho metodo para que cierre bien el formulario
No necesitas el CLEAR CLASS. Basta de cambiar el valor de la variabla a NULL para cerrar la herramienta.
>¿porque? al utilizar el diseño "X" "Closable" del formulario, cierra el formulario y no la barra de herramienta.
Cuando cierras una pantalla con el botón "X", VFP llama a método QueryUnload. Para cerrarla de un programa tienes que ejecutar el método Release. Por eso normalmente creamos otra función como así:
Procedure QueryUnload
If not Thisform.CerrarFormulario()
Nodefault
Endif
Endproc
Procedure Release
If Thisform.CerrarFormulario()
Dodefault()
Endif
Endproc
Procedure CerrarFormulario
_Screen.oTlb = NULL
Return .T.
--
Christof