Try
            PServer = New TcpListener(PIPendpoint)
            PServer.Start()
            While True
                PClient = New TcpClient
                Dim c As New Connection
                TXT("Warte auf neue Verbindung")
                PClient = PServer.AcceptTcpClient
                c.stream = PClient.GetStream
                c.streamw = New StreamWriter(c.stream)
                c.streamr = New StreamReader(c.stream)
                Dim t As New Threading.Thread(AddressOf ListenToConnection)
                t.Start(c)                
            End While
        Catch ex As Exception
        End Try

Dim Info As String
        Dim Infos() As String
        Try
            c.streamw.WriteLine(ID & "||" & PConnectable)
            c.streamw.Flush()
            Info = c.streamr.ReadLine
            Infos = Split(Info, "||")
            c.ClientID = Infos(0)
            For Each cl As Connection In PClients 'Um doppelte Verbindungen zu 
            ' vermeiden
                Dim cIP() As String
                cIP = Split(cl.ClientID.ToString, ":")
                If cIP(0) = Infos(0) Then
                    TXT(cIP(0) & " bereits verbunden")
                    c.stream.Close()
                    Exit Sub
                Else
                    TXT(cIP(0) & " noch nicht verbunden")
                End If
            Next
            c.ClientIP = PClient.Client.RemoteEndPoint.ToString
            c.Servant = Infos(1)
            PClients.Add(c)
            TXT("Neuer Client: " & c.ClientID)
            Dim SplitMSG() As String
            Dim NewTTL As Integer
            Dim FullMSG As String
            While True
                FullMSG = c.streamr.ReadLine
               MSG(FullMSG)' Da passieren alle möglichen Sachen, jedoch nicht 
               ' von belangen
            End While
        Catch
            Try
                PClients.Remove(c)
                TXT(c.ClientID & " hat die Verbindung abgebrochen")
            Catch ex As Exception
            End Try
        End Try

Function Connect(ByVal IP As String)
        Try            
            For Each c As Connection In PClients 'Um doppelte Verbindungen zu 
            ' vermeiden
                Dim cIP() As String
                cIP = Split(c.ClientIP.ToString, ":")
                If cIP(0) = IP Then
                    TXT(cIP(0) & " bereits verbunden")
                    Return False
                    Exit Function
                Else
                    TXT(cIP(0) & " noch nicht verbunden")
                End If
            Next
            TXT("Verbinde zu " & IP)
            PClient = New TcpClient
            PClient.Connect(IP, PPort)
            If PClient.Connected Then
                Dim c As New Connection
                c.stream = PClient.GetStream
                c.streamw = New StreamWriter(c.stream)
                c.streamr = New StreamReader(c.stream)
                Dim t As New Threading.Thread(AddressOf ListenToConnection)
                t.Start(c)               
            End If
        Catch ex As Exception
            TXT("EX: Verbindung konnte nicht hergestellt werden")
            Return False
        End Try
        Return True
    End Function