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!