Private Sub RunTimeControl
Dim btn As New System.Windows.Forms.Button
Me.Width = 300
Me.Height = 150
btn.Visible = True
btn.Size = New Size(75, 25)
btn.Text = "Runtime button"
btn.Location = New Point(100, 45)
Me.Controls.Add(btn)
AddHandler btn.Click, AddressOf Me.btn_Click
End Sub
Public Sub btn_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btn.click
' do whatever here
Beep()
End Sub