' function to remove all child forms
Private sub Unload_Child()
dim f as Form
for each f in Forms
if f <> me then
unload f
end if
next
end sub
' menu click event
Private sub mnu_NewForm_Click()
'clear MDI main
Unload_Child
' set new top and left for new form
frmNewForm.Top = 0
frmNewForm.Left = 0
' show form
frmNewForm.show
end sub