Manipulate[r = 1; thick = 0.2; 
 S1 = {Red, Cylinder[ {{0, 0, 0}, {thick, 0, 0}}, r]};
 S2 = {Green, Cylinder[{{axes, 0, 0}, {axes + thick, 0, 0}}, r]};
 S3 = {Blue, Cylinder[{{0, 0, 0}, {axes + thick, 0, 0}}, r/10]};
 S4 = {Blue, Sphere[{0, 0, 0}, r/5]};
 S5 = {Blue, Sphere[{axes + thick, 0, 0}, r/5]};
 S6 = {Yellow, Cuboid[{{axes, 0, 0.3}, {thick, 1, 0.3}}]};
 Graphics3D[ {S1, S2, S3, S4, S5, S6}, Boxed -> False], {axes, 0.8, 
  2.5}]