无语
Dim frm = windows.forms.form.activeformIf frm IsNot Nothing Then If frm.name = "Class247" Then For Each c As Object In frm.Controls output.show(c.name) Next End IfEnd If