Manipulate[
Graphics[{
ParametricPlot[{Cos[t],Sin[t]},{t,0,2π},
Axes->True
][[1]],
Arrow[{
{0,0},
{Cos[s],Sin[s]}
}],
Arrow[{
{Cos[s],Sin[s]},
{Cos[s],Sin[s]}+{-Sin[s],Cos[s]}
}]
},
PlotRange->1.6],
{s,0,2 π}
]