Manipulate[LocatorPane[Dynamic@pts,Dynamic@Graphics[{Green, Line[pts], Red,PointSize[Large], Point[pts],Blue,BezierCurve[pts]},PlotRange->{{-3,3},{-2,2}}, PlotLabel ->"Cubic Bézier Curve"]],{{pts,{{-2.5,-1},{-1.5,1.5},{1.5,1},{2,-1}}},ControlType->None},SaveDefinitions->True, AutorunSequencing->{2}]