m=Manipulate[Plot3D[Sin[x y+a],{x,0,6},{y,0,6}],{a,0,4}]

Export["manipulate1.swf",%]