以文本方式查看主题

-  Foxtable(狐表)  (http://www.foxtable.com/bbs/index.asp)
--  专家坐堂  (http://www.foxtable.com/bbs/list.asp?boardid=2)
----  关闭所有窗口  (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=121708)
--  作者：wjliu
--  发布时间：2018/7/11 21:53:00
--  关闭所有窗口
Dim frm As WinForm.Form = Forms.ActiveForm
Dim frmname As String
If frm IsNot Nothing Then
    frmname = frm.name
    frm.close
    
End If
Forms("用户系统设置").Show
If frmname > "" Then
    
    forms(frmname).Open()
    
End If

1点击系统中的锁定菜单时，关闭所有的窗口
2弹出系统解锁窗口
上面的代码怎么修改
--  作者：有点甜
--  发布时间：2018/7/11 22:09:00
--  

For Each frm As WinForm.Form In Forms
    If frm.opened Then
        frm.close
    End If
Next
Forms("解锁").Show
--  作者：wjliu
--  发布时间：2018/7/11 22:53:00
--  
谢谢