Sub StartTCP_list()
 
        Dim ipAddr As System.Net.IPAddress
        ipAddr = IPAddress.Parse(GetLocalIP)
 
        Dim serverSocket As New TcpListener(ipAddr, 8888)
        Dim clientSocket As TcpClient
        Dim infiniteCounter As Integer
 
        serverSocket.Start()
        status_text.Text = "TCP-Überwachung gestartet."
        infiniteCounter = 0
        For infiniteCounter = 1 To 2
            infiniteCounter = 1
            clientSocket = serverSocket.AcceptTcpClient()
 
            Dim client As New handleClinet
            client.startClient(clientSocket, clientsList)
        Next
 
        clientSocket.Close()
        serverSocket.Stop()
        status_text.Text = "TCP-Überwachung wurde beendet."
    End Sub
 
    Public Class handleClinet
        Dim clientSocket As TcpClient
        Dim clientsList As Hashtable
 
        Public Sub startClient(ByVal inClientSocket As TcpClient, ByVal cList _
          As Hashtable)
            Me.clientSocket = inClientSocket
            Me.clientsList = cList
            Dim ctThread As Threading.Thread = New Threading.Thread(AddressOf _
              doChat)
            ctThread.Start()
        End Sub
 
        Private Sub doChat()
            Dim infiniteCounter As Integer
            Dim bytesFrom(10024) As Byte
            Dim dataFromClient As String
            For infiniteCounter = 1 To 2
                infiniteCounter = 1
                Try
                    Dim networkStream As NetworkStream = clientSocket.GetStream( _
                      )
                    networkStream.Read(bytesFrom, 0, CInt( _
                    clientSocket.ReceiveBufferSize))
                    dataFromClient = System.Text.Encoding.ASCII.GetString( _
                    bytesFrom)
 
                    Dim broadcastStream As NetworkStream = _
                      clientSocket.GetStream()
                    Dim broadcastBytes As [Byte]()
 
                    broadcastBytes = Encoding.ASCII.GetBytes("test")
 
                    broadcastStream.Write(broadcastBytes, 0, _
                      broadcastBytes.Length)
                    broadcastStream.Flush()
                Catch ex As Exception
                    clientSocket.Close()
                    MsgBox(ex.ToString)
                End Try
            Next
        End Sub
    End Class