Dim sck_Server_NWS As NetworkStream

Private _clients As New List(Of TcpClient)

sck_ServerTcpClient = sck_Server_TcpListener.EndAcceptTcpClient(data)

		'TcpClient holen der zu dieser Verbindung gehört.
		Dim client As TcpClient = sck_Server_TcpListener.EndAcceptTcpClient(data)
		'In Liste merken
		_clients.Add(client)

	Public Class ReadDataState
		Public Sub New(ByVal client As TcpClient, ByVal bytes As Byte())
			Me.Client = client
			Me.ReceiveBuffer = bytes
		End Sub
		Public Client As TcpClient
		Public ReceiveBuffer As Byte()
	End Class