S1=Graphics3D[{Blue,Opacity[0.5],Sphere[{0,0,0},3]},Boxed->False];
S2[P_]:=VectorPlot3D[{P[[1]]*x,P[[2]]*x+y,z},{x,-4,4},{y,-4,4},{z,-4,4},
VectorPoints->5,VectorColorFunction->Hue,VectorScale->0.17,Boxed->False]
Manipulate[Show[{S1,S2[P]},ImageSize->{300,300}],
Control[{{P,{0.4,0}},{-1,-1},{1,1},ImageSize->{300,100}}]]