Dim i%, variable$For i = 0 To List1.ListCount - 1 variable = variable & List1.List(i) Next Text1 = variable
Dim i%, variable$For i = 0 To List1.ListCount - 1variable = List1.List(i)soket.senddata variableNext