how to declare the function below

Hi Experts,

May I know how to declare the function below.
Thanks,

Turbot

    Function BuildTable(ByVal RowsNumber As Integer, ByVal ColumnsNumber As Integer)
        Dim i, j As Integer
        Me.Table1.Rows.Clear()
        For j = 1 To RowsNumber
            Dim row As New TableRow
            For i = 1 To ColumnsNumber
                Dim Cell As New TableRow
                'Cell.t = Rnd()
                Cell.BorderColor = Color.Blue
                Cell.BorderWidth = Unit.Pixel(1)
                row.Cells.Add(Cell)
            Next
            Me.Table1.Rows.Add(row)
        Next
        Me.Table1.BorderColor = Color.AliceBlue
        Me.Table1.BorderStyle = BorderStyle.Groove
        Me.Table1.BorderWidth = Unit.Pixel(1)
    End Function