Creating controls at runtime and adding events

[thanosm2003]

The following code creates a new command button, at run time, named btnTest1. How can i add events(like btnTest1_click) to this object? How can i add code that hadles the events for this object?
Dim myButton As Button = New Button()
Me.Controls.Add(myButton)
myButton.Name = "btnTest1"
myButton.Size = New Size(45, 45)
myButton.Location = New Point(10, 10)

 

[Machaira]

You'll have to have the event code written already, but then you would just do:

AddHandler myButton.Click, AddressOf btnTest1_click

 

[JumpyNET]

Here is a complete sample of what Machaira suggested:

    Private Sub Form1_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
        Dim myButton As System.Windows.Forms.Button = New System.Windows.Forms.Button
        myButton.Location = New System.Drawing.Point(10, 10)
        myButton.Name = "btnTest1"
        myButton.Size = New System.Drawing.Size(175, 43)
        myButton.TabIndex = 0
        myButton.Text = "Click me, please."
        With myButton
            AddHandler .Click, AddressOf myButton_Click
        End With
        Me.Controls.Add(myButton)
    End Sub

    Private Sub myButton_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)
        Dim ClickedButton As Button = sender
        ClickedButton.Text = "I have been clicked!"
    End Sub