主题：如果实现菜单的关闭按钮能逐一关闭已打开的窗口

全局代码

Public fs As New List(Of string)

各个窗口afterLoad事件

fs.Add(e.form.Name)

关闭按钮事件

Forms(fs(fs.Count-1)).Close

fs.RemoveAt(fs.Count-1)

 去编写SystemIdle事件，

If Forms.ActiveForm IsNot Nothing Then

    集合里移除原先的窗口，重新加入窗口

    如果用表，就给其赋值一个大的编号

End If