标题：这段代码有什么问题吗？

    For Each frm As WinForm.Form In Forms
        For Each c As Winform.Control In forms(frm.name).Controls
            output.show(frm.name & "     " & c.name)
        Next
    Next

没看出代码有问题。

对了，你应该判断窗口是否打开，如果不判断估计会出错。

没看出问题，但是应该这样：

For Each frm As WinForm.Form In Forms
        For Each c As Winform.Control In frm.Controls
            output.show(frm.name & "     " & c.name)
        Next
Next

你的也不行，如果不判断窗口是否打开肯定出错。

是的，不大开窗口就会出错～  谢谢C版，  另狐爸看看能否改进一下不用打开窗口。。。谢谢

可以打开，但不显示，就是隐藏窗口

Forms("订单筛选").Visible = False

Visible

逻辑型，仅对已经打开的独立型窗口有效。
设为False，临时隐藏窗口，设为True，重新显示已经隐藏的窗口。

不打开，肯定判断不了。
你可以判断窗口是否已经打开嘛

其实我不想打开窗口，只想知道我项目中都有那些窗口，每个窗口中都有那些控件。

谢谢了～ 

  除非贺老师给这样操作的方法，否则不好办！