遍历窗口控件出错，请教如何处理
1、代码
For Each frm As winform.Form In Forms
output.show(frm.name)
Dim fn As String = frm.Name
Dim i As Integer
For Each ctl As WinForm.Control In Forms(fn).Controls
Dim ctlnm As String = ctl.name
If ctlnm > ""
i = i + 1
output.show("当前第 " & i &"个控件名称为: " & ctlnm & " 类型为: " & ctl.Gettype().toString())
End If
Next
Next
2、出错的文件（包括但不限于这些文件）
自定义录入界面之四.table
自定义录入界面之四.foxdb
3、出错信息（遍历“窗口1”就出错）
---------------------------
版本:2021.9.2.1
---------------------------
代码执行出错，错误信息：
System.NullReferenceException: 未将对象引用设置到对象的实例。
在 UserCode.Test()
---------------------------
确定
---------------------------
加好友 
发短信
Post By：2021/9/28 12:50:00 [显示全部帖子]
