Menu菜单

1）  打开新窗体：

Dim frm As 新窗体名

frm = New 新窗体名

frm.Show()

2）  父窗体设置法：

在form的IsMdiContainer属性里更改，true为父窗体，false为子窗体。

3）  Me.LayoutMdi(MdiLayout.Cascade)

同时打开三个窗体时，显示三个窗体罗列

 Me.LayoutMdi(MdiLayout.TileHorizontal)

同时打开三个窗体时，显示三个窗体横排并列

 Me.LayoutMdi(MdiLayout.TileVertical)

同时打开三个窗体时，显示三个窗体竖排并列

4）  综合：

For Each frm As Form In Me.MdiChildren

  If frm.Name = "新窗体名A" Then

        If frm.WindowState = FormWindowState.Minimized Then

           frm.WindowState = FormWindowState.Normal

        End If

  frm.Show()

  frm.BringToFront()

  Return

End If

Next

Dim UM_Form As 新窗体名A = New 新窗体名A

UM_Form.MdiParent = Me

UM_Form.Show()