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

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

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

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