1, have new button
2, use me.controls.add newbutton to add the button to the control center
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 .Lef nb.top = button2.top button2.height nb.show () End Sub