这两天我好像回复过同样的问题几次了。
For Each frm As Winform.Form In Forms If frm.Name = "窗口1" Then frm.Open() Else If frm.Name <> "共享窗口" Then frm.Close() End If End IfNext