能不能让web控件循环的增加---(在线狂等。。。)

'创建一个合同项目
    Function CreaNewItem(ByVal i As Integer, ByVal ItemName As String, ByVal ItemTxtNumber As String, ByVal ItemTxtMoney As String, ByVal ItemTxtBody As String)
        Dim TxtNumber As New TextBox
        Dim TxtMoney As New TextBox
        Dim TxtBody As New TextBox
        Dim LabItemTitle As New Label
        '合同项目的数量
        TxtNumber.CssClass = "edboxindex"
        TxtNumber.Style.Add("Width", "50px")
        TxtNumber.Text = ItemTxtNumber
        TxtNumber.ID = "TxtNumber" & i
        '合同项目的总金额
        TxtMoney.CssClass = "edboxindex"
        TxtMoney.Style.Add("Width", "100px")
        TxtMoney.Text = ItemTxtMoney
        TxtMoney.ID = "TxtMoney" & i
        '合同项目的概述
        TxtBody.CssClass = "edbox"
        TxtBody.TextMode = TextBoxMode.MultiLine
        TxtBody.Rows = 2
        TxtBody.Style.Add("Width", "400px")
        TxtBody.Text = ItemTxtBody
        TxtBody.ID = "TxtBody" & i
        '合同项目名称
        LabItemTitle.CssClass = "ttTable"
        LabItemTitle.Text = ItemName
        LabItemTitle.ID = "LabItemTitle" & i        PanInputItems.Controls.Add(New LiteralControl("<tr><td colSpan=4>"))
        PanInputItems.Controls.Add(New LiteralControl("<TABLE align=center width=474px><TR><TD width=259><li>"))
        PanInputItems.Controls.Add(LabItemTitle)
        PanInputItems.Controls.Add(New LiteralControl("</TD><TD class=td width=25>数量</TD><TD>"))
        PanInputItems.Controls.Add(TxtNumber)
        PanInputItems.Controls.Add(New LiteralControl("</TD><TD class=td width=40>总金额</TD><TD>"))
        PanInputItems.Controls.Add(TxtMoney)
        PanInputItems.Controls.Add(New LiteralControl("</TD></TR></TABLE>"))
        PanInputItems.Controls.Add(New LiteralControl("<TABLE align=center width=474px><TR><TD valign=top class=td width=65 align=right>说明</TD><TD>"))
        PanInputItems.Controls.Add(TxtBody)
        PanInputItems.Controls.Add(New LiteralControl("</TD></TR></TABLE>"))
        PanInputItems.Controls.Add(New LiteralControl("</td><tr>"))
    End Function