Manipulate[
 If[r == 1, 
  Q = ContourPlot3D[
    x^2*P[[1]] + y^2*P[[2]] + z^2 == 1, {x, -1, 1}, {y, -1, 
     1}, {z, -1, 1}, Boxed -> False, Axes -> False, 
    PlotLabel -> 
     Style[(x^2)/(a^2) + (y^2)/(b^2) + (z^2)/(c^2) == 1, Red, Bold, 
      24]]; S = 
   Speak["The equation of an ellipsoid is x squared over 'A' squared, \
plus y squared over b squared, plus z squared over c squared equals \
1"]];
 If[r == 2, 
  Q = ContourPlot3D[
    x^2*P[[1]] + y^2*P[[2]] - z^2 == 1, {x, -1, 1}, {y, -1, 
     1}, {z, -1, 1}, Boxed -> False, Axes -> False, 
    PlotLabel -> 
     Style[(x^2)/(a^2) + (y^2)/(b^2) - (z^2)/(c^2) == 1, Orange, Bold,
       24]]; S = 
   Speak["The equation of a one sheeted hyperboloid is x squared over \
'A' squared, plus y squared over b squared, minus z squared over c \
squared equals 1"]];
 If[r == 3, 
  Q = ContourPlot3D[-x^2*P[[1]] - y^2*P[[2]] + z^2 == 1, {x, -2, 
     2}, {y, -2, 2}, {z, -2, 2}, Boxed -> False, Axes -> False, 
    PlotLabel -> 
     Style[(x^2)/(a^2) + (y^2)/(b^2) - (z^2)/(c^2) == -1, Yellow, 
      Bold, 24]]; 
  S = Speak[
    "The equation of a two sheeted hyperboloid is x squared over 'A' \
squared, plus y squared over b squared, minus z squared over c \
squared equals negative 1"]];
 If[r == 4, 
  Q = ContourPlot3D[
    x^2*P[[1]] + y^2*P[[2]] - z == 0, {x, -1, 1}, {y, -1, 1}, {z, -1, 
     1}, Boxed -> False, Axes -> False, 
    PlotLabel -> 
     Style[(x^2)/(a^2) + (y^2)/(b^2) == z/c, Green, Bold, 24]]; 
  S = Speak[
    "The equation of an elliptic paraboloid is x squared over 'A' \
squared, plus y squared over b squared equals z over c"]];
 If[r == 5, 
  Q = ContourPlot3D[
    x^2*P[[1]] - y^2*P[[2]] + z == 0, {x, -1, 1}, {y, -1, 1}, {z, -1, 
     1}, Boxed -> False, Axes -> False, 
    PlotLabel -> 
     Style[(x^2)/(a^2) - (y^2)/(b^2) == z/c, Blue, Bold, 24]]; 
  S = Speak[
    "The equation of a hyperbolic paraboloid is x squared over 'A' \
squared, minus y squared over b squared equals z over c"]];
 If[r == 6, 
  Q = ContourPlot3D[
    x^2*P[[1]] + y^2*P[[2]] == 1, {x, -1, 1}, {y, -1, 1}, {z, -1, 1}, 
    Boxed -> False, Axes -> False, 
    PlotLabel -> 
     Style[(x^2)/(a^2) + (y^2)/(b^2) == 1, Purple, Bold, 24]]; 
  S = Speak[
    "The equation of a cylinder is x squared over 'A' squared, plus y \
squared over b squared equals 1"]];
 If[r == 7, 
  Q = ContourPlot3D[
    x^2*P[[1]] + y^2*P[[2]] - z^2 == 0, {x, -1, 1}, {y, -1, 
     1}, {z, -1, 1}, Boxed -> False, Axes -> False, 
    PlotLabel -> 
     Style[(x^2)/(a^2) + (y^2)/(b^2) == (z^2)/(c^2), Pink, Bold, 24]];
   S = Speak[
    "The equation of a cone is x squared over 'A' squared, plus y \
squared over b squared equals z squared over c squared"]]; Q, {{r, 1, 
   "Choose a Quadric Surface:"}, {1 -> "ellipsoid", 
   2 -> "one-sheeted hyperboloid", 3 -> "two-sheeted hyperboloid", 
   4 -> "elliptic paraboloid", 5 -> "hyperbolic paraboloid", 
   6 -> "cylinder", 7 -> "cone"}}, 
 Control[{{P, {1, 1}}, {0, 0}, {4, 4}, ImageSize -> {400, 300}}]]