Tangent[f_, x_] := Module[{},
  Manipulate[
   Show[
    Plot [f'[p] (x - p) + f[p], {x, p - 1, p + 1},
     PlotStyle -> {Thick, Orange},
     PlotRange -> {{-10, 10}, {-70, 70}}],
    Plot[f[x], {x, -10, 10}, PlotRange -> {{-10, 10}, {-70, 70}},
     PlotStyle -> {color}]
    ], {p, -10, 10,
    0.2}, {color, {Purple -> "Purple", Blue -> "Blue"}}]
  ]

f[x_]:=x^2 Sin[x];

Tangent[f,x]