Hello Sergey
I tried this with no success!
At init:
if ....
messagebox(...)
thisform.quitexit = .T.
endif

at activate
if thisform.quitexit = .T.
thisform.release
endif

same result
the menu is not activated in the unload section

???????????
Best regards
Albert