动态创建按钮

1、要有New button

2、要用me.controls.add newbutton把按钮加入到控件集中

 Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        Dim nb As Button = New Button
        Me.Controls.Add(nb)
        nb.Text = "new button"
        nb.Left = Button2.Left
        nb.Top = Button2.Top + Button2.Height
        nb.Show()
 End Sub