Public Sub Rotate( _
   ByVal AxisX1 As Double, _
   ByVal AxisY1 As Double, _
   ByVal AxisZ1 As Double, _
   ByVal AxisX2 As Double, _
   ByVal AxisY2 As Double, _
   ByVal AxisZ2 As Double, _
   ByVal Angle As Double _
)