Show[Graphics[{{Blue,Rectangle[{0,0}],Rectangle[{3,0}]},{Blue,AbsoluteThickness[5],Arrow[{{1,.5},{3,.5}}]},Text["Sender",{.5,1.15}],Text["Channel",{2,.7}],Text["Receiver",{3.5,1.15}]}],BaseStyle->{14,Bold}]