Making plot range a slider

maxy = Pi; 
Row[{VerticalSlider[Dynamic[maxy], {-2 Pi, 2 Pi}, 
  Appearance -> "LeftArrow"], 
  Dynamic@Plot[Sin[x], {x, -Pi, Pi}, 
  PlotRange -> {{-Pi, Pi}, {-maxy, maxy}}, 
  ImageSize -> 200]}]

6.31 Making plot range a slider