Graphics3D Animations

Animate[Graphics3D[{RGBColor["#3030ff"],
Opacity[.05],Sphere[{0,0,0},15],
RGBColor["#3030ff"],Opacity[.9],
Sphere[{0,0,0},5],Hue[i/12],Opacity[.8],
Sphere[{0,13Cos[Pi*i/12],7Sin[Pi*i/12]},1]},
Boxed->False,ImageSize->500],{i,24},
AnimationRate->1,AnimationRunning->False]