Public Sub SetRotationAxis( _
   ByVal dPointX As Double, _
   ByVal dPointY As Double, _
   ByVal dPointZ As Double, _
   ByVal dDirectionX As Double, _
   ByVal dDirectionY As Double, _
   ByVal dDirectionZ As Double _
)