Manipulating UI at runtime

btn = new button
btn.name = unqiueButtonName
btn.left = 10
btn.top = 20
btn.Text = "Button Name"

'This is the important part as this is how you add
'the events for button
addHandler btn.click, addressof BtnEvent
panelName.controls.add(btn)

Public sub BtnEvent()
  'Do event handling stuff here
End Sub