FoxPro/Visual FoxPro - on error que no libera ventanas modales

Hola a todos! Tengo una función que maneja los errores y se activa con el ON ERROR y que hace todos los CLEAR's, pero cuándo tengo un error en una ventana modal no libera la misma ventana ni restablece el menú ¿qué podrá ser?

El clear no cierra ni libera formularios solo limpia pantallas, ventanas etc.

Para hacer eso deberias usar algo asi...

lnForms = _SCREEN.FormCount
llDone = .T.

DO WHILE lnForms > 0 AND llDone
IF TYPE("_screen.Forms(lnForms)") == "O"
lcBase = _screen.Forms(lnForms).BaseClass
IF lcBase == "Form"
_SCREEN.Forms(lnForms).Hide()
llDone = _SCREEN.Forms(lnForms).QueryUnload()
IF llDone
_SCREEN.Forms(lnForms).Release
lnForms = lnForms - 1
ENDIF
ELSE
lnForms = lnForms - 1
ENDIF
ELSE
lnForms = lnForms - 1
ENDIF
_screen.Refresh()
ENDDO

Gracias David, muy útil!