(* Michael Cowett *)

A1={RGBColor[0,0,1],Polygon[{{0,26},{26,26},{26,0},{0,0}}]};
A2={RGBColor[1,1,1],Polygon[{{0,0},{2,0},{26,24},{26,26},{24,26},{0,2}}]};
A3={RGBColor[1,1,1],Polygon[{{26,0},{24,0},{0,24},{0,26},{2,26},{26,2}}]};
B1={RGBColor[0,0,1],Polygon[{{0,26},{26,26},{26,0},{0,0}}]};
B2={RGBColor[1,1,1],Polygon[{{0,0},{2,0},{26,24},{26,26},{24,26},{0,2}}]};
B3={RGBColor[1,1,1],Polygon[{{26,0},{24,0},{0,24},{0,26},{2,26},{26,2}}]};
B4={RGBColor[1,0,0],Polygon[{{26,0},{25,0},{0,25},{0,26},{1,26},{26,1}}]};
B5={RGBColor[1,0,0],Polygon[{{0,0},{1,0},{26,25},{26,26},{25,26},{0,1}}]};
B6={RGBColor[1,1,1],Polygon[{{0,11},{0,15},{26,15},{26,11}}]};
B7={RGBColor[1,0,0],Polygon[{{0,12},{0,14},{26,14},{26,12}}]};
B8={RGBColor[1,1,1],Polygon[{{11.5,0},{14.5,0},{14.5,26},{11.5,26}}]};
B9={RGBColor[1,0,0],Polygon[{{12.25,0},{13.75,0},{13.75,26},{12.25,26}}]};
P=Import["http://www.learning-tech.co.uk/welsh_flag.png","PNG"];WelshFlag=Graphics[Inset[P,{0,0},Center,11]];
D1={RGBColor[0.131273,0.751125,0.223514],Polygon[{{0,0},{9,0},{9,26},{0,26}}]};
D2={RGBColor[1,1,1],Polygon[{{9,0},{18,0},{18,26},{9,26}}]};
D3={RGBColor[1,0.629816,0.0886702],Polygon[{{18,0},{27,0},{27,26},{18,26}}]};

Manipulate[
If[r==1,S=Show[Graphics[{D3,D2,D1}],AspectRatio->.5]];
If[r==2,S=Show[Graphics[{A1,A2,A3}],AspectRatio->.5]];
If[r==3,S=Show[Graphics[{B1,B2,B3,B4,B5,B6,B7,B8,B9}],AspectRatio->.5]];
If[r==4,S=Show[{WelshFlag},PlotRange->{{-6,6},{-3,3}}]];
S,{{r,1,"WhatBritishIslesflagdoyouwanttosee?"},{1->"Ireland",2->"Scotland",3->"U.K.",4->"Wales"}}]