vb 网络应用

Private Sub tcpserver_DataArrival(Index As Integer, ByVal bytesTotal As Long)
Dim message As String
For i = 1 To clientcount Call tcpserver(clientcount).GetData(message)
List1.AddItem Trim(message)
tcpserver(clientcount).Tag = message
For b = List1.ListCount - 1 To 0 Step -1
List1.ListIndex = bCall tcpserver(clientcount).SendData(List1.List(b))
Sleep 1000
Next b
Next i
End Sub
把list1里的东西逐条发出去
可收到的是list里全部的货
怎么弄呢？
加了个sleep，不行啊