En el click del icono tengo: _screen.ActiveForm.QueryUnload()

en el metodo QueryUnload del formulario tengo:

LOCAL lnCount, lnForName
IF !thisform.WriteBuffer()
NODEFAULT
RETURN .F.
ENDIF
IF !EMPTY(ALIAS())
IF thisform.IsNewAndEmpty()
=TABLEREVERT(.T.)
thisform.salir()
ELSE
IF thisform.DataChanged() AND thisform.AskToSave() = IDCANCEL
NODEFAULT
RETURN .F.
ELSE
lnCount = _Screen.Formcount
IF lnCount > 2
thisform.Destroy()
lnForName = thisform.Name
RELEASE lnForName
ELSE
thisform.salir()
ENDIF
ENDIF
ENDIF
ENDIF
RETURN .T.

Saludos
Luis E. Parada