User-1039646841 posted
If
Not IsPostBack
Then
TreeView1.Nodes.Clear()
Dim MeC As
New MenuCollection
Dim j As
Integer
MeC = Menu.FetchParrent(0)
For j = 0 To MeC.Count - 1
Dim xx As
New TreeNode
xx.Type = MeC.Item(j).MenuID
xx.Text = "<font size='1' face='Verdana, Arial, Helvetica, sans-serif'><strong>" & MeC.Item(j).MenuName & "</strong></font>"
Call AddnodeRecursive(MeC.Item(j).MenuID, xx)
TreeView1.Nodes.Add(xx)
Next
End If