zaxis=Line[{{0,0,0},{0,0,1}}];xaxis=Line[{{0,0,0},{1,0,0}}];yaxis=Line[{{0,0,0},{0,1,0}}];
circle[r_]=Line[Table[r{Cos[t],Sin[t],0},{t,0,2π,2π/50.}]];
Animate[
Graphics3D[
{xaxis,yaxis,zaxis,circle[Sin[th]],
{Dashed,Line[{{Sin[ th]Cos[23th],Sin[th]Sin[23th],0},{Sin[ th]Cos[23th],Sin[th]Sin[23th],Cos[th]}}]},
,Blue,Thick,Arrow[{{0,0,0},{Sin[ th]Cos[23th],Sin[th]Sin[23th],Cos[th]}}]}
,Boxed->False,PlotRange->{{-1,1},{-1,1},{-1,1}}]
,{th,0,2π,.001},DefaultDuration->60]