Another Listbox Question

[Smie]

Thanks for the previous help, Now, how would i reverse that and send all the list to a textbox separated by ";" i tried:

text1.text = List1.listindex & ";"

but that wasnt it, I need to send All of the list, just not one part. Thanks

[MartinLiss]

Dim intIndex As Integer

For intIndex = 0 To List1.ListCount - 1
If List1.Selected(intIndex) Then
Text1.Text = Text1.Text & List1.List(intIndex) & ";"
End If
Next intIndex

Text1.Text = Left(Text1, Len(Text1.Text) - 1)


------------------
Marty

[Smie]

That did not work, sorry. Any clue how to fix it, and get it to send ALL the info, not just the selected? thanks!

[kmchong]

Just remove the if statement will work!