Use a for each form loop to find which child forms are active, and then set these forms to the size you want.
in the resize sub:
dim frm as form
For Each frm in forms
if frm.name <> "MDIForm1" then
if frm.MDIchild = true then
frm.width = .....
frm.height = .....
end if
end if
next
This routine will loop through all open forms, and if they are not your MDI form, but are children to the form, they will resize. Make sure you change MDIForm1 to the name of your MDI parent form.
This site uses cookies to help personalise content, tailor your experience and to keep you logged in if you register.
By continuing to use this site, you are consenting to our use of cookies.