Manipulate[LocatorPane[Dynamic@pts,
pts1 = Take[pts, 4];
pts2 = Take[pts, -4];Dynamic@Graphics[{Green, Line[pts], Red,PointSize[Large], Point[pts],Blue,BezierCurve[pts1], BezierCurve[pts2]},PlotRange->{{-3.1,3.1},{-2.1,2.1}}, PlotLabel ->"Two Bézier Curves"]],{{pts,{{0,-2},{-3,2},{0,2},{0,1}, {0,2}, {3,2}, {0, -2}}},ControlType->None}]