VB.NET 动态加入控件实例

Public Class Form1
    '动态加入控件实例 晨彦电脑科技 WWW.BTOSS.COM
    Private Sub newbutton_click(ByVal sender As System.Object, ByVal e As System.EventArgs)
        MsgBox("动态加入控件实例 晨彦电脑科技 WWW.BTOSS.COM")
    End Sub

    Private Sub Button1_Click_1(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim newbutton As New Button
        newbutton.Text = "newbutton"
        AddHandler newbutton.Click, AddressOf newbutton_click
        Me.Controls.Add(newbutton)
    End Sub
End Class