Dim Button As New Button()

<Script Runat="Server">
    Protected Sub ButtonClick(ByVal sender As Object, ByVal e As System.EventArgs)
        Response.Write("test success")
    End Sub
    Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs)
        Dim Table As New Table()
        Dim Row As New TableRow()
        Dim Button As New Button()
        Dim ButtonClick As EventHandler
        With Button
            .BackColor = Drawing.Color.Azure
        End With

        Dim Cell As New TableCell()
        With Cell
            .Text = "fdsafsdf"
            .Width =  200 
            .BackColor = Drawing.Color.Aquamarine
            .BorderStyle = BorderStyle.Solid
            .Controls.Add(Button)
        End With
        AddHandler Button.Click, New EventHandler(AddressOf ButtonClick)
        Form1.Controls.Add(Table)
        Table.Rows.Add(Row)
        Row.Cells.Add(Cell)
    End Sub
    </Script>

Compiler Error Message: BC30577: 'AddressOf' operand must be the name of a method (without parentheses).