Manipulate[
ParametricPlot3D[
{x,a,a Sin[x]},
{x,-4,4},
PlotRange->{{-4,4},{-4,4},{-4,4}},
BoxRatios->{1,1,1},
PlotStyle->{Thick,Blue},
ImageSize->Small,
AxesLabel->{x,z,y},
ViewPoint->{2,-4,2}
],
{{a,2},-4,4,Appearance-> "Labeled",SaveDefinitions->True}
]