im using this to send all the data from a list box
to populate another list box to a remote ip

Code:
 For x = 0 To hosts.ListCount - 1
     Server.SendData hosts.List(x), SckIndex
'''''
Next x
The problem is when ariving its all being entered as one long line

Code:
Private Sub Winsock_DataArrival(ByVal bytesTotal As Long)
    Dim Data As String
    Call Winsock.GetData(Data, , bytesTotal)
    txtResponse.Text = Data
    connects.AddItem txtResponse.Text
    txtResponse.Text = ""
End Sub
how do i get it to regonise the next listbox add to the next line