For Each entry In clients
            ReDim Preserve namen(i)
            i += 1
            client = CType(entry.Value, UserConnection)
            client.SendData("ZUSPAET|")
            namen(j) = client.Name
            j += 1
            'clients.Remove(client.Name)
        Next
        For i = 0 To namen.Length - 1
            UpdateStatus(namen(i))
            clients.Remove(namen(i))
        Next