Manipulate[Graphics[{BezierCurve[pts,SplineDegree->d],Dashed,Green,Line[pts]},PlotRange->5,Frame->True, PlotLabel->pts],{{pts,{{-3,0},{-1,3},{1,-3},{3,0}}},Locator,LocatorAutoCreate->True},{{d,3,"degree"},2,6,1}]

Manipulate[Graphics[{BezierCurve[pts,SplineDegree->d],Dashed,Green,Line[pts]},PlotRange->All,Frame->True, PlotLabel->pts],{{pts,{{-3,0},{-1,3},{1,-3},{3,0},{4,0},{5,3},{6,-3}}},Locator,LocatorAutoCreate->True},{{d,3,"degree"},2,6,1}]