Try
            c.stream.Close()
            c.Client.Client.Close()
            TXT(c.ClientID & " hat die Verbindung abgebrochen")
            PClients.Remove(c)
        Catch ex As Exception
 
        End Try

Structure Connection
        Dim stream As NetworkStream
        Dim streamw As StreamWriter
        Dim streamr As StreamReader
        Dim ClientID As String 'Identifikation des clients.
        Dim ClientIP As String 'IP des CLients
        Dim Client As TcpClient
    End Structure