=====================================

movie = Animate[Plot[Sin[x + a], {x, 0, 10}], {a, 0, 5}];

Export["movie.swf", movie]

% Save on documents