Thanks
For LnCnt = 0 To 100
Dim node As UltraTreeNode = MainMenu.Nodes.Add (BoSite1.ID, BoSite1.SiteName)
node.LeftImages.Add(9)
node.Tag = BoSite1.SiteName & "~" & BoSite1.ID & "~" & "StartPage"
node.Key = node.Tag