Manipulate[Show[
Graphics3D[
	{CapForm[None],
	Opacity[o],Blue,
	Tube[
	{{x,y,z},{x1,y1,z1}},2.1]}
],
Graphics3D[
	
	Translate[Cylinder[
	{{x3,y3,z3},{x4,y4,z4}},2],{x5,y5,z5}
]
],
Graphics3D[Line[{{0,0,0},{z5+1,z5+1,z5+1}}]],
Axes->True,
AxesStyle->{Red,Green,Blue},
PlotRange->{{-7,7},{-8,8},{-9,9}}],
{{o,0.6},0,1},
{{x,0},-5,5},{{y,0},-5,5},{{z,0},-5,5},
{{x1,0},-5,5},{{y1,0},-5,5},{z1,-5,5},
{{x3,0},-5,5},{{y3,0},-5,5},{{z3,-4.5},-5,5},
{{x4,0},-5,5},{{y4,0},-5,5},{{z4,-0.5},-5,5},
{{x5,0},-5,5},{{y5,0},-5,5},{{z5,0},-5,1}
]