参考代码
For Each f As WinForm.Form In Forms output.show(f.name & " " & f.text)NextFor Each t As Table In Tables output.show(t.name)Next
http://www.foxtable.com/webhelp/scr/1144.htm