How can I get the list items into a label boxes? I have 20 Label boxes (label1(0) Label1(1) etc...) and a list box.
Now I need to get list items into a label box, so that item 1 goes to label1(0), item 2 goes to label1(1) etc...
How can I do this?

This won't work:
dim count as integer
count = 0
while count < n do
item_val = label1(count)
list1.additem(item_val)
count = count + 1
loop


And how can I remove items from listbox (style=checked)
This won't work correctly:

i = 0
intMaxItems = List1.ListCount - 1
Do While i <= intMaxItems
If List1.Selected(i) = True Then
List1.RemoveItem i
intMaxItems = intMaxItems - 1
Else
i = i + 1
End If
Loop

Thank you!