主题：[求助]求隐藏代码

自食其力

Dim frm = Windows.Forms.Form.ActiveForm
If frm IsNot Nothing Then
    output.show(frm.name)
    For Each c As object In frm.controls
        output.show(c.name)
    Next
End If