dynamic controladd

Partial Class dinesh
Inherits System.Web.UI.Page
Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
bindcontrol()
End Sub
Sub bindcontrol()
Dim txt1 As New TextBox
Dim txt2 As New TextBox
Dim btn1 As New Button
Panel1.Controls.Add(txt1)
Panel1.Controls.Add(txt2)
Panel1.Controls.Add(btn1)
txt1.ID = "txt1"
txt2.ID = "txt2"
btn1.ID = "btn1"
btn1.Text = "Add"
btn1.Width = 100
AddHandler btn1.Click, AddressOf btn1_click


End Sub
Sub btn1_click(ByVal s As Object, ByVal e As System.EventArgs)
Dim txt1 As TextBox = CType(Panel1.FindControl("txt1"), TextBox)
Dim txt2 As TextBox = CType(Panel1.FindControl("txt2"), TextBox)
Label1.Text = Val(txt1.Text) + Val(txt2.Text)
End Sub
End Class