afterLoad事件
Dim btns() As String = {"Button1", "Button2"}for each btn as string in btns Dim btn1 As WinForm.Button = e.Form.Controls(btn) Dim str As String = "" For Each s As String In btn1.text str &= s & vbcrlf Next btn1.text = strNext