Representation of Edge Probabilities

PL="Edge Probability in Percentage";
RV=Table[t->ColorData["DeepSeaColors"][t/16],{t,16}];
VGP[p_]:=GraphPlot3D[RandomGraph[BernoulliGraphDistribution[16,
p/100]],ImageSize->Large,PlotLabel->{PL,ToString[p]},
GraphLayout ->"SpringElectricalEmbedding",
EdgeStyle->RGBColor["slategray"],VertexStyle->RV ];
VGP[90]