or
RadTreeNodeData type)'Load any pre-existing elements into the list box.Public WriteOnly Property ConfigElements() As clsCommonObjects.ElementItem() Set(ByVal value() As clsCommonObjects.ElementItem) Dim intX As Int16 Dim intY As Int16 For intX = 0 To value.GetUpperBound(0) Dim objListItem As New RadListBoxItem lstAddedElements.Items.Add(objListItem) objListItem = lstAddedElements.Items(lstAddedElements.Items.Count - 1) objListItem.Text = "" objListItem.Value = value(intX).strType 'Use an attribute to store the ID objListItem.Attributes.Add("UniqueID", value(intX).strID) For intY = 0 To objListItem.Controls.Count - 1 Select Case objListItem.Controls(intY).ID Case "lblElementType" DirectCast(objListItem.Controls(intY), Label).Text = value(intX).strDisplayType Case "lblElementName" DirectCast(objListItem.Controls(intY), Label).Text = value(intX).strName Case "imgElementType" DirectCast(objListItem.Controls(intY), Image).ImageUrl = value(intX).strImageURL End Select Next objListItem = Nothing Next End SetEnd Property