Private Sub tcpServer_SendComplete(Index as Integer)
  Dim I%
  If Index + 1>= tcpServer.Count then Exit Sub
  If tcpServer(Index + 1).State = 7 Then
    tcpServer(Index +1).SenDData sData
  Else
    For I= Index +1 to tcpserver.Count - 1
      If tcpServer(I).State= 7 Then Exit For
    Next
    If I>= tcpServer.Count Then Exit Sub
    tcpServer(I).SendData sData
  End If
End Sub