Q: Show Legend with 3D ListPlot 
Possible Duplicate:
Creating legends for plots with multiple lines? 

I am trying to plot the color bar that shows the data range for the data plotted by ListPlot3D. I want to ask if I can use the ShowLegend command with the LisPlot3D? My code is as the following : 
Needs["PlotLegends`"];
s = Import["C10002.xls"]
Rotate[ListPlot3D[s, PlotRange -> {0.048, 0.22}, Mesh -> None, 
  AxesLabel -> 
  Style[StandardForm[\[Phi]], FontSize -> 20, FontWeight -> "Bold"]],
  30 Degree, {0, 1, 0}]

ShowLegend[
  ListPlot3D[s, PlotRange -> {0.048, 0.22}, Mesh -> None, 
  AxesLabel -> 
  Style[StandardForm[\[Phi]], FontSize -> 20, FontWeight -> "Bold"]],
  LegendPosition -> {1.1, -.4}]

I will be very thankful for your help.
