Animate[Plot3D[Sin[2x]Sin[3y]Cos[t],{x,0,Pi},{y,0,Pi},PlotRange->{-1,1}],{t,0,2Pi}]