Public Class F_main
Private Sub CloseAllChildForm()
Dim f As Form
For Each f In Me.MdiChildren
f.Close()
Next
End Sub
Private Sub f_child_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles f_child.Click
Dim fRent As New f_child
fRent.MdiParent = Me
fRent.Show()
End Sub
Private Sub f_child2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles f_child2.Click
Dim fRent As New f_child2
fRent.MdiParent = Me
fRent.Show()
End Sub
End Class