o tambien
Código [Seleccionar]
Dim i%, variable$
For i = 0 To List1.ListCount - 1
variable = List1.List(i)
soket.senddata variable
Next