Sub ListenToConnection(ByVal c As Connection)
        Dim Info As String
        Dim Infos() As String
        Try
            c.streamw.WriteLine(PNodeID & "||" & PConnectable)
            c.streamw.Flush()
            Info = c.streamr.ReadLine
            If Info = Nothing Then
                'CloseClient(c)
                TXT("Eine Verbindung wurde vorzeitig beendet")
            Else
                Infos = Split(Info, "||")
                c.ClientID = Infos(0)
                SyncLock PClients
                    For Each cl As Connection In PClients
                        Dim cIP() As String
                        cIP = Split(cl.ClientID.ToString, ":")
                        If cIP(0) = Infos(0) Then
                            c.stream.Close()
                            Exit Sub
                        End If
                    Next
                    c.ClientIP = PClient.Client.RemoteEndPoint.ToString
                    PClients.Add(c) ' und fügen sie der liste der clients hinzu.
                End SyncLock
                TXT("Neuer Client: " & c.ClientID)
                Dim SplitMSG() As String
                Dim NewTTL As Integer
                Dim FullMSG As String
                While True
                    FullMSG = c.streamr.ReadLine
                    If FullMSG = Nothing Then
                        TXT("Die Verbindung zu " & c.ClientID & " wurde" & _
                          "beendet")
                        CloseClient(c)
                    Else
                        TXT(FullMSG)
                        SplitMSG = Split(FullMSG, PFullMSGSplit)
                         .
                         .
                         .
 
                        MSG(SplitMSG(3), c.ClientID, SplitMSG(4))
                        End If
                         .
                         .
                         .                        
                    End If
                End While
            End If
        Catch ex As Exception
            TXT(ex.ToString)
        End Try
    End Sub