Graph Styling 2

CET=Flatten[Table[Table[i<->j->ColorData["BrightBands"]
[i/Length[GraphData["SzekeresSnark","Vertices"]]],
{j,AdjacencyList[GraphData["SzekeresSnark"],i]}],
{i,GraphData["SzekeresSnark","Vertices"]}]];
GraphPlot[GraphData["SzekeresSnark"],ImageSize->Large,
EdgeStyle->CET,EdgeShapeFunction->"CarvedArcArrow",
VertexStyle->{RGBColor["Silver"],Opacity[0.7]},
VertexShapeFunction->"ConcaveHexagon",
VertexLabels->Placed[Automatic,{.5,.5}],VertexSize->.5]