01.Public Class F_main
02. Private Sub CloseAllChildForm()
03. Dim f As Form
04. For Each f In Me.MdiChildren
05. f.Close()
06. Next
07. End Sub
08.
09. Private Sub f_child_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles f_child.Click
10. Dim fRent As New f_child
11. fRent.MdiParent = Me
12. fRent.Show()
13. End Sub
14.
15. Private Sub f_child2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles f_child2.Click
16. Dim fRent As New f_child2
17. fRent.MdiParent = Me
18. fRent.Show()
19. End Sub
20.End Class
