呵呵,换个思路.
For Each frm As WinForm.Form In Forms
frm.close '先关闭所有窗口 Select frm.Name Case "窗口1","窗口2" frm.open() '再根据窗口名字打开 End SelectNext
明白了吗?