主题：[求助][求助]系统模板设计辅助工具能自己做吗？？？

 可以，参考来改

Dim frm As object = system.windows.Forms.Form.activeform
If frm IsNot Nothing AndAlso frm.text Like "*设计器*" Then
    frm.text = "我的设计器"
    For Each o As object In frm.controls
        output.show(o.name)
    Next
    frm.controls("btnPreview").Text = "我的预览"
End If