主题：要做到 打开一个并列窗口 ，就要把前一个并列窗口自动关闭？

AfterLoad事件

Dim tab = e.form.panel.parent.parent
For Each p As object In tab.tabpages
    Dim fname As String = p.controls(0).name
    If fname <> e.form.name AndAlso forms.contains(fname) Then
        forms(fname).close
    End If
Next