<<Graphics`Arrow`

Lines

or = {0, 0};   (* black *) 
P0 = {4, 1};   (* 
      blue *) 
P1 = {-3, 7};   (* 
      green *) 

Show[
Graphics[{
{PointSize[0.025], Black, 
            Point[or]}, 
{PointSize[0.025], Blue, 
            Point[P0]}, 
{PointSize[0.025], Green, 
            Point[P1]}, 
{PointSize[0.025], Red, 
            Point[P0 + P1]},  
{Thickness[0.007], Blue, 
            Arrow[or, P0]} ,  
{Thickness[0.007], Green, 
            Arrow[or, P1]} , 
{Thickness[0.007], Red, 
            Arrow[or, P0 + P1]} ,  
{Thickness[0.007], 
            Green, Arrow[P0, 
              P0 + P1]}, 

{PointSize[
              0.025], Blue, 
            Point[2 P0]}

}], 
PlotRange -> {{-10, 10}, {-10, 
            10}}, 
Frame -> 
        True, 
AspectRatio -> 
        Automatic
];

or = {0, 0};    
P0 = {4, 1};    
P1 = {-3, 7};    

Table[
Show[
Graphics[{
{PointSize[0.025], Black, 
                Point[or]}, 
{PointSize[0.025], Blue, 
                Point[P0]}, 
{PointSize[0.025], Green, 
                Point[P1]}, 
{PointSize[0.025], Red, 
                Point[P0 + 
                    P1]},  

{Thickness[
                  0.007], Blue, 
                Arrow[or, P0]} ,  
{Thickness[0.007], 
                Green, Arrow[or, P1]} , 
{Thickness[
                  0.007], Red, 
                Arrow[or, P0 + P1]} ,  
{Thickness[
                  0.007], Green, 
                Arrow[P0, 
                  P0 + P1]}, 

{PointSize[
                  0.02], Red, 
                Table[Point[P0 + s P1], {s, -1, 
                    t,  .1}]} , 


{Thickness[0.007], Red, 
                Arrow[or, 
                  P0 + t P1]} 


}], 
PlotRange -> {{-5, 
                15}, {-5, 15}}, 
Frame -> 
            True, 
AspectRatio -> 
            Automatic
], {t, -1, 
          2,  .1}];

    
SelectionMove[EvaluationNotebook[], All, GeneratedCell];
FrontEndTokenExecute["OpenCloseGroup"]

Table[
Show[
Graphics[{
{PointSize[0.025], Black, 
                Point[or]}, 
{PointSize[0.025], Blue, 
                Point[P0]}, 
{PointSize[0.025], Green, 
                Point[P1]} ,  
{Thickness[0.009], Blue, 
                Arrow[or, P0]}, 
{Thickness[0.009], Green, 
                Arrow[or, P1]} , 
{Thickness[0.009], 
                RGBColor[0, 0, 0], 
                Table[Point[(1 - s) P0 + (s) P1], {s, -2, 
                    t,  .01}]} , 
{Thickness[0.009], 
                RGBColor[0, 0, 0], 
                Arrow[or, (1 - t) P0 + (t) 
                      P1]} 
}], 
PlotRange -> {{-10, 10}, {-10, 
                10}}, 
Frame -> 
            True, 
AspectRatio -> 
            Automatic
], {t, -2.0, 
          2.0,  .01}];
SelectionMove[EvaluationNotebook[], All, GeneratedCell];
FrontEndTokenExecute["OpenCloseGroup"]

or = {0, 0, 0};    
P0 = {4, 1, 1};    
P1 = {-3, 7, 2};    

Show[
Graphics3D[{
{PointSize[
                0.025], Black, 
              Point[or]}, 
{PointSize[0.025], Blue, 
              Point[P0]}, 
{PointSize[0.025], Green, 
              Point[P1]}, 
{PointSize[0.025], Red, 
              Point[P0 + P1]},  
{Thickness[0.007], Blue, 
              Line[{or, P0}]} ,  
{Thickness[0.007], 
              Green, Line[{or, P1}]} , 
{Thickness[0.007], 
              Red, Line[{or, P0 + P1}]} ,  
{Thickness[
                0.007], Green, 
              Line[{P0, 
                  P0 + P1}]}
}], 
PlotRange -> {{-10, 10}, {-10, 10}, {-10, 
              10}}, 
Boxed -> 
          True, 
AspectRatio -> 
          Automatic
];

or = {0, 0, 0};    
P0 = {4, 1, 1};    
P1 = {-3, 7, 2};    

Table[
        Show[
Graphics3D[{
{PointSize[
                  0.025], Black, 
                Point[or]}, 
{PointSize[0.025], Blue, 
                Point[P0]}, 
{PointSize[0.025], Green, 
                Point[P1]}, 

{Thickness[
                  0.007], Blue, 
                Line[{or, P0}]} ,  
{Thickness[0.007], 
                Green, Line[{or, 
                    P1}]} , 



{Table[
                  Point[(1 - s) P0 + (s) P1], {s, -2, 
                    t,  .01}]} , 

{Thickness[0.009], RGBColor[0, 0, 0], 
                Line[{or, (1 - t) P0 + (t) 
                        P1}]} 

}], 
PlotRange -> {{-10, 10}, {-10, 10}, {-10, 
                10}}, 
Boxed -> 
            True, 
AspectRatio -> 
            Automatic
], {t, -2, 
          3,  .05}];

    
SelectionMove[EvaluationNotebook[], All, GeneratedCell];
FrontEndTokenExecute["OpenCloseGroup"]