程序代码：

   Private Sub Form2_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Me.IsMdiContainer = True      '设置Form2为MDI窗体
        Me.WindowState = FormWindowState.Maximized
        Dim frm As New Form1          '加载Form1
        frm.MdiParent = Me            '设置Form1为Form2的子窗体
        frm.WindowState = FormWindowState.Maximized        '子窗体最大化
        '当然，你也可以设置子窗体无标题栏等属性
        frm.Show()
    End Sub

[此贴子已经被作者于2016-11-8 17:07编辑过]