DynamicModule[{a = {0, 0, E}},
Graphics3D[{Cuboid[]}, ViewPoint -> Dynamic[a]]]
DynamicModule[{a = {0, 0, 3 Sin[1]}},
Graphics3D[{Cuboid[]}, ViewPoint -> Dynamic[a]]]
DynamicModule[{a = {0, 0, Sqrt[13]}},
Graphics3D[{Cuboid[]}, ViewPoint -> Dynamic[a]]]