Needs["VisualLA`"]

u = {1, 2, 3};
v = {4, 5, 6};
w = Cross[u, v];
U = DrawVector3D[u, DisplayFunction -> Identity]; 
    V = DrawVector3D[v, 
        DisplayFunction -> Identity];
W = 
        DrawVector3D[w, 
          DisplayFunction -> Identity];
Table[
        Show[{U, V, W}, DisplayFunction -> $DisplayFunction, 
          ViewPoint -> {t - 6, 2.4,  3 + (t/20)}, Ticks -> False], {t, 
          0, 50, 0.25}];