Public Sub SetRotationFocus( _
   ByVal dPointX As Double, _
   ByVal dPointY As Double, _
   ByVal dPointZ As Double, _
   ByVal dDirectionX As Double, _
   ByVal dDirectionZ As Double, _
   ByVal dDirectionY As Double, _
   ByVal dFront As Double, _
   ByVal dBack As Double, _
   ByVal dRadius As Double, _
   ByVal uOptions As Long _
)