主题：如何获取所有窗口，所有控件

如何获取所有窗口，所有控件 。下列代码出错。

Dim s As new List(of String)
For Each frm As WinForm.Form In Forms
    For Each c As WinForm.Control In frm.Controls     
        s.add(c.name)
    Next
Next

窗口，必须是open的情况下，才能获取值

Dim s As new List(of String)
For Each frm As WinForm.Form In Forms
    frm.Open
    For Each c As WinForm.Control In frm.Controls
        s.add(c.name)
    Next
    frm.close
Next

注意，不能有模式窗口。