Button maken ondertussen als programma word uitgevoerd.

[Spy1]

De titel zegt het al een beetje/helemaal.

Hoe maak ik een button aan ondertussen als de programma word uitgevoerd?
___________________________________________________________________

Ik heb het al gevonden, namelijk:

Dim Button1 As New Button()
Button1.Text = "Creating a Button"
Button1.Location = New Point(100, 50)
Button1.Size = New Size(75, 23)
Me.Controls.Add(Button1)

 

[ninjaplayer]

Als je misschien ook nog wilt dat er iets wordt gedaan als erop geklikt wordt:

Public Class Form1

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Create_Button()
    End Sub

    Private Sub Create_Button()
        Dim NewButton As New Button

        'Text
        NewButton.Text = "New Button"

        'Positie
        NewButton.Top = 100
        NewButton.Left = 100
        

        'Toevoegen aan Form1
        Me.Controls.Add(NewButton)


        'Click Event
        AddHandler NewButton.Click, New System.EventHandler(AddressOf NewButton_Click)

    End Sub

    Private Sub NewButton_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)
        MsgBox("NewButton_Click!")
    End Sub
End Class