Try this:
dim button1 as new button
button1.ID = "btnTest1"
button1.text="abc"
tc.control.add(button1)
AddHandler button1.Click, AddressOf Me.Button1_Click
' Rest of code
' Declare the event handler...
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)
Me.Response.Write("Button1_Click fired. " & (CType(sender, Button)).ClientID & "<br>")
End Sub
NC...