<<VectorFieldPlots`;
Manipulate[VectorPlot[{Cos[k[[1]] z+k[[2]] y],Sin[k[[1]] z+k[[2]] y]},{z,-8,8},{y,-8,8}],{{k,{0,0}},{-Pi/4,-Pi/4},{Pi/4,Pi/4}}]