GraphicsGrid[ Partition[CountryData[#, "Shape"] & /@ CountryData["GroupOf15"], 4], Background -> LightBlue, Frame -> All]