Public Sub MeasureDistance( _
   ByVal Element1 As Object, _
   ByVal Element2 As Object, _
   ByVal DistanceType As MeasureDistanceTypeConstants, _
   ByRef Distance As Double, _
   ByRef DX As Double, _
   ByRef DY As Double, _
   ByRef DZ As Double, _
   ByRef Point1() As Double, _
   ByRef Point2() As Double _
)