Interactive Graph Styling

Manipulate[CompleteGraph[12,

EdgeStyle->Flatten[Table[Table[k<->j->Hue[k/12],

{k,12}],{j,2,V}]],
VertexStyle->Flatten[Table[k->Hue[k/12],{k,12}]]],
{V,Range[12,2,-1]}]