Unfortunately, the Forms collection will also include non-MDI forms. What I do is something like this (don't have the exact code on me but I think this does it):
Public Function ChildrenRemain() as boolean
ChildrenRemain = False
for i = 1 to Forms.Count
If forms(i).MDIChild then
ChildrenRemain = True
exit function
end if
End Function
The whole problem with the world is that fools and fanatics are always so certain of themselves, but wiser people so full of doubts. - Bertrand Russell
