Send Listbox by Winsock

I use a list box to store the user names in the server side of my VB program. i was wondering how can i send the whole list of user names or the user name listbox to my client side of my VB program?

Well, the simplest way would be this:

Code:

---

Dim i As Integer
For i = 0 To List1.ListCount - 1
  If Winsock.State = sckConnected Then
    Winsock.SendData List1.List(i)
    DoEvents
  End If
Next i

---

Your client would receive it like this:

Code:

---

Private Sub Winsock_DataArrival(ByVal BytesTotal As Long)
Dim Data As String
  Winsock.GetData Data
  MsgBox Data
End Sub

---