Sub addControls()
    Dim a As Byte
    Dim c As Control
 
    c = Page.FindControl("form1")
 
    for a = 1 to 10
        Dim t as New TextBox()
        t.ID = "tb"& a
        t.Text = "Text"& a
 
        c.Controls.Add(t)
 
        'Dim l As New LiteralControl("<br>")
        'c.Controls.Add(l)
    next
End Sub
 
Sub tbDynamic_Click(Sender As Object, E As EventArgs)
    MsgBox(sender.Text)
End Sub

t.TextChanged += new EventHandler(tbDynamic_Click)