全局代码
Public fs As New List(Of string)
各个窗口afterLoad事件
fs.Add(e.form.Name)
关闭按钮事件
Forms(fs(fs.Count-1)).Close
fs.RemoveAt(fs.Count-1)