Dynamic button function

Hi all,
I got this:
    Function createButtonDyn(id As String, txt As String, cssclass As String) As Button         Dim but As New Button         but.ID = "docc"         but.Text = "Credit Card"         but.CssClass = "button-pay"         AddHandler but.Click, AddressOf btnFunction         Return but     End Function     Public Sub btnFunction(sender As System.Object, e As System.EventArgs)         ''''     End Sub

But i also wanted to pass the function the button call to the function.
ex:
  Function createButtonDyn(id As String, txt As S ...