About list box & labels... Hurry

[Sierra]

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!

[Maartin]

Go and have a look in your mailbox.



------------------
Have Fun.
Maartin.
[email protected]
-----------------------

[Serge]

It is very easy to do.

Dim i As Integer

For i = 0 To List1.ListCount - 1
    Label(i) = List1.List(i)
Next

------------------

Serge

Senior Programmer Analyst
[email protected]
[email protected]
ICQ#: 51055819