Public Sub GetRotationFocus( _
   ByRef pdPointX As Double, _
   ByRef pdPointY As Double, _
   ByRef pdPointZ As Double, _
   ByRef pdDirectionX As Double, _
   ByRef pdDirectionZ As Double, _
   ByRef pdDirectionY As Double, _
   ByRef pdFront As Double, _
   ByRef pdBack As Double, _
   ByRef pdRadius As Double, _
   ByRef puOptions As Long _
)