Thanks - that was only idea to stop this problem with the form not firing the lost focus... but I will put in anyway - I think that's really good!

I am struggling with this...

The name of the form I store as a string in oApp.TopForm...

case .pNodeValue = 9
if !oApp.TopForm = ""
local strCheckQU
strCheckQU = evaluate(oApp.TopForm) 
if strCheckQU.queryunload()

if !oApp.TopForm = "frmcontacts" AND !oApp.TopForm = ""
oForm.mCloseForm(oApp.TopForm)
endif
if !oApp.BottomForm = ""
oForm.mCloseForm(oApp.BottomForm)
endif
oForm.mLaunchForm('frmcontacts')
oApp.CaptionPLus = " :: [Customers]"
endif
else
if !oApp.TopForm = "frmcontacts" AND !oApp.TopForm = ""
oForm.mCloseForm(oApp.TopForm)
endif
if !oApp.BottomForm = ""
oForm.mCloseForm(oApp.BottomForm)
endif
oForm.mLaunchForm('frmcontacts')
oApp.CaptionPLus = " :: [Customers]"
endif

That throws an error... "Variable Name of the form not found..."