重新打开一次
Dim frms As new List(Of object)For Each f As WinForm.Form In forms If f.Opened Then frms.add(f) f.close End IfNextFor Each f As object In frms f.openNext