In[]:=
pts={{0,0},{1,-1},{1,1},{4,0}};
In[]:=
FindShortestTour[pts->"Elements"]//Most
Out[]=
{{0,0},{1,1},{4,0},{1,-1}}