如何把一个窗体添加到容器控件中

Private   Sub Form1_Load() Sub Form1_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles MyBase.Load
            Dim nForm As New Form2
'检查是否有打开的窗体
        For Each cForm As Form In Me.Panel1.Controls
            cForm.Dispose()
        Next
        If Me.ContentPanel.Controls.Count < 1 Then'如果打开的窗体数量为0
            With nForm
                nForm.TopLevel = False '设置窗体为非顶级容器
                .Dock = DockStyle.Fill
                .Show()'显示窗体
            End With
            Pane1l.Controls.Add(nForm)'把该窗体添加到Panel控件里
        Else
            nForm.Activate()'激活窗体
        End If
    End Sub