Protected Sub btnTest_Click(ByVal sender As Object, ByVal e As System.EventArgs)
        If txtNoOfInd.Text.Trim IsNot String.Empty Then

            CreatePanels(txtNoOfFrm.Text)
        end if
   End Sub

Sub CreatePanels(ByVal NoOfFrm As Integer)

            For i As Integer = 1 To NoOfInd

                Dim NoOfPersons As Integer = txtNoOfInd.Text

                Dim table1 As HtmlTable
                Dim Row As HtmlTableRow
                Dim Cell As HtmlTableCell
                Dim txtName As TextBox
                Dim lblName As Label
                Dim btnNext As Button

                txtName = New TextBox
                txtName.ID = "txtName" & i.ToString

                lblName = New Label
                lblName.ID = "lblName" & i.ToString
                lblName.AssociatedControlID = "txtName" & i.ToString
                lblName.Text = "Name:"

                btnNext = New Button
                btnNext.ID = "btnNext" & i.ToString
                btnNext.Text = "Next"

                table1 = New HtmlTable
                Row = New HtmlTableRow
                Cell = New HtmlTableCell

                Cell.Controls.Add(lblName)
                Cell.Controls.Add(txtName)
                Cell.Controls.Add(btnNext)
                Row.Cells.Add(Cell)
                table1.Rows.Add(Row)

                Dim newParentItem As RadPanelItem = New RadPanelItem()
                Dim newChildItem As RadPanelItem = New RadPanelItem()

                newParentItem.Items.Add(newChildItem)
                newChildItem.Controls.Add(table1)
                newParentItem.Text = i.ToString
                If i = 1 Then
                    newParentItem.Expanded = True
                End If

                RadPanelBar1.Items.Add(newParentItem)
            Next
    End Sub