参考代码
For Each c As object In e.Form.Controls For Each p As object In c.basecontrol.Gettype.getproperties If p.name = "BorderStyle" Then c.basecontrol.BorderStyle = System.Windows.Forms.BorderStyle.None msgbox(c.name) Exit For End If NextNext