Dim bytes(client.ReceiveBufferSize - 1) As Byte
		Dim info As New ReadDataState(client, bytes)
		Dim ns As NetworkStream = client.GetStream()
		ns.BeginRead(info.ReceiveBuffer, 0, info.ReceiveBuffer.Length, _
		  AddressOf _
		  OnDataArrival, info)