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

如果在菜单上自己设置一个关闭按钮，点击关闭按钮就能关闭在主窗口中显示在最上面的窗口但左边的菜单不能关闭，如何能实现？
此主题相关图片如下：11122.png

全局代码

 

Public fs As New List(Of string)

 

各个窗口afterLoad事件

 

fs.Add(e.form.Name)

 

关闭按钮事件

 

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

fs.RemoveAt(fs.Count-1)

这个代码和我想的类似，我是一打开一个窗口就把它写入一个临时数据表里，关闭的时候再把它删除。当打开了多个窗口，假如打开了8个个，而第八个应该在最上面，这样一个一个关闭是没有问题的。可是，我点击标题栏，把第二个窗口切换到最上面，这时点击关闭却是第八个被关闭，因为点击标题切换第二个到最上面的时候没有相应的事件能改变已打开窗口的排序。这又如何解决呢？

 去编写SystemIdle事件，

 

If Forms.ActiveForm IsNot Nothing Then

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

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

End If