Hear is my code
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