Plot3D[x^2-y^2, {x, -2,2}, {y, -2,2}]

cp =ContourPlot[x^2-y^2, {x, -2,2}, {y, -2,2}]

vp =VectorPlot[{2x, -2y}, {x, -2,2}, {y, -2,2}]

Show[cp, vp]