主题：[求助]有没有简单的代码，实现关闭当前表之外的所有窗口？

设置一个菜单按钮：

For Each frm As WinForm.Form In Forms
    If Forms.ActiveForm IsNot Nothing Then
        If frm.Name <> Forms.ActiveForm.Name Then
            If frm.Opened Then
                frm.Close()
            End If
        End If
    End If
Next