this is my current cod
i get the key is not uniqe error please help
bbb = strUserList(Counter)
Lv.Nodes.Add , , bbb, bbb, 1, 1
Code:
e
'Here we extract the number of user names in the message
'from the count value
strCount = Split(strValue(1), COUNT_SEPARATOR)
Count = Val(strCount(0))
'Here we split the string of user names into it's own array
strUserList = Split(strCount(1), VALUE_SEPARATOR)
Dim bbb As String
'And then add them all to the user list control
For Counter = 0 To Count - 1
lstUsers.AddItem strUserList(Counter) ' this is the listbox gets populated with usenames
bbb = strUserList(Counter)
Lv.Nodes.Add , , bbb, "bbb", 1, 1 ' this is the treeview am trying to populate
Nexti get the key is not uniqe error please help
bbb = strUserList(Counter)
Lv.Nodes.Add , , bbb, bbb, 1, 1