Manipulate[
Show[
Graphics3D[
{CapForm[None],
Opacity[0.7],
Blue,
Tube[
{{0,0,0},{0,0,5}},2.1]}
],
Graphics3D[
Translate[
Cylinder[
{{0,0,4.5},{0,0,-0.8}},2],{0,0,z5}
]
],
Graphics3D[Point[{z5+8,0,Cos[z5]+5}]],
Graphics3D[Line[{{4,0,1},{9,0,1}}]],
Graphics3D[Line[{{4,0,5},{4,0,1}}]],
Axes->True,
AxesStyle->{Red,Green,Blue},
PlotRange->{{-3,10},{-3,8},{-3,9}}],
{{z5,0},-4,1}
]