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.