For Each frm As WinForm.Form In forms If frm.Opened Then Dim name As String = frm.Name frm.Close forms(name).Open End If
Next