Animating and Saving a Movie of a Function with a Table

ClearAll["Global`*"];

f[x_,k_]=Sin [k x]; (* the basic function being plotted *)
xmin=0;xmax=10;ymin=-1;ymax=1; (* plot limits *)
kmin = 0.2; kmax=2.0;kstep=0.1 ;(* k is the "time" dependent parameter. *)
picturestack[k_]:=Plot[f[x,k],{x,xmin,xmax},PlotRange->{ymin,ymax}];
myframes=Table[picturestack[kk],{kk,kmin,kmax,kstep}];
Manipulate[picturestack[kk],{kk,0,19}]

path = "C:\\Users\\pogo\\Desktop\\MMA\\function2.avi";(*options are gif,swf, avi, mov *)
Export[path,myframes]; 
(* Note the difference in the final results compared to the previous demo: 
this movie doesn't show the Mathematica toolbar that appeared when we used "ListAnimate"! *)