try this on your unload, possibly some other forms are still loaded, preventing the termination of your app....

on error resume next
dim frm as form

for each frm in form
if frm.Caption <> me.caption then
unload frm
end if
next frm

unload me