Public Sub MinimumDistance( _
   ByVal Element1 As Object, _
   ByVal Element2 As Object, _
   ByRef Distance As Double, _
   ByRef Point1() As Double, _
   ByRef Point2() As Double _
)