主题：如何简化代码实现只保留主要窗体和最后打开的窗体不被关闭，其他所有打开的任何类型的窗体都关闭呢？

如何简化实现只保留主要窗体和最后打开的窗体不被关闭，其他所有打开的任何类型的窗体都关闭呢？

不用每次都定义vars("FormName") 这个

当前代码：

For Each f As WinForm.Form In Forms
    output.Show("所有窗口为:" & f.Name)
    If Forms(f.Name).opened Then
        output.Show("已经打开的窗口为:" & f.Name)
        Dim frm As WinForm.Form = Forms.ActiveForm
        If frm IsNot Nothing Then
            'output.Show("活动窗口为:" & frm.Name)
            If frm.name<>"主窗体"  And frm.name = vars("FormName") Then
               
            Else   If  frm.name<>"主窗体" Then
                Forms(frm.Name).Close()

            output.Show("已经关闭的窗口为:" & frm.Name)
            End If

        Else
        End If
    End If
Next