how to handle click event of the dynamically created button

[aparnaa]

hi
i am developing a web page in asp.net(VB)
here i have dynamicaaly created a button.
i have created this button in a procedure so that i can call it at varied places.
however, i am not able to handle click event of this button.
i have already made use of add handler...n had followed all the convention required.But on clicking the button the control goes to the page_load but not on the delegate function.please help
i am also pasting part of the code i have written

Sub populateButton(ByVal flag As String)

Dim table As New Literal
Dim ctable As New Literal
Dim td As New Literal
Dim tdrigth As New Literal
Dim ctd As New Literal
Dim tr As New Literal
Dim ctr As New Literal
Dim myBreak As New Literal


table.Text = "<table width=100% border=0 bgcolor=beige >"
ctable.Text = "</table>"
td.Text = "<td>"
ctd.Text = "</td>"
tr.Text = "<tr>"
ctr.Text = "</tr>"
tdrigth.Text = "<td align=right>"
'MyBreak.Text = "<table><tr><td bgcolor=beige align=center width=100%>"
Dim btntable As New Literal
btntable.Text = "<table border=0 width=100% bgcolor=beige><tr align=center><td>"
Dim recN As New Literal


Dim btnsubmit As New Button
btnsubmit.Text = "SUBMIT"
AddHandler btnsubmit.Click, AddressOf btnsubmitClick
btnsubmit.ID = "btnsubmit"

Dim btncancel As New Button
btncancel.Text = "CANCEL"
btncancel.ID = "btncancel"
AddHandler btncancel.Click, AddressOf btncancelClick

' datagridarea.Controls.Add(btntable)

datagridarea.Controls.Add(table)
datagridarea.Controls.Add(tr)
datagridarea.Controls.Add(td)
datagridarea.Controls.Add(btncancel)
datagridarea.Controls.Add(ctd)
datagridarea.Controls.Add(tdrigth)
datagridarea.Controls.Add(btnsubmit)
datagridarea.Controls.Add(ctd)
datagridarea.Controls.Add(ctr)
datagridarea.Controls.Add(ctable)
End Sub

Private Sub btnsubmitClick(ByVal sender As Object, ByVal e As System.EventArgs)
Label1.Text = "aparnaa"
onchange(EventArgs.Empty)
End Sub
Private Sub btncancelClick(ByVal sender As Object, ByVal e As System.EventArgs)
Label1.Text = "apaaaaaarna"
End Sub
Protected Sub onchange(ByVal e As EventArgs)
RaiseEvent change(Me, e)
End Sub

Public Event change(ByVal sender As Object, ByVal e As EventArgs)






let me know if i am making sm mistake ...
thanks
aparna