Follow along with the video below to see how to install our site as a web app on your home screen.
Note: This feature may not be available in some browsers.
' 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