Need Help!

I need to Display all of the items in a list box onto a Label control! Does anyone have an idea about how to do this! I tried using a Do Until loop but it doesn't stop and it displays the first item then when it loops it displays the next and the first one is no longer there! Please help!

Thanks

Jamie

Change your label's WordWrap property to True.

Here's the code!

Private Sub cmdCheckOut_Click()
Dim I As Integer
Dim c As Integer
c = List1.ListCount
I = List1.ListIndex

Do Until List1.ListIndex = List1.ListCount


Label4.Caption = List1.List(I)
I = I + 1

Loop

This line of code is the problem

Label4.Caption = List1.List(I)

You are telling VB to replace the label's content every time you loop.

Do this instead

Label4.Caption = Label4.caption & List1.List(I)

or

Label4.Caption = Label4.caption & List1.List(I) & vbCrLF


They both tell VB to append the new vale to what is already there.

Thanks! Now All I have to do is figure out how to stop it! I'm just learning and this is an assignment so I'll keep digging into my books!

Thanks again