Public Sub GetAreaProperties( _
   ByRef dArea As Double, _
   ByRef dAreaCenterX As Double, _
   ByRef dAreaCenterY As Double, _
   ByRef dMIX As Double, _
   ByRef dMIY As Double, _
   ByRef dMIXY As Double, _
   ByRef dPrincipalMIX As Double, _
   ByRef dPrincipalMIY As Double, _
   ByRef dAngleOfOrientation As Double, _
   ByRef dPrincipalXX As Double, _
   ByRef dPrincipalXY As Double, _
   ByRef dPrincipalYX As Double, _
   ByRef dPrincipalYY As Double, _
   ByRef dPerimeter As Double _
)