Public Sub MeasureAngleEx( _
   ByVal Element1 As Object, _
   ByVal Element2 As Object, _
   ByVal Element3 As Object, _
   ByRef Angle1 As Double, _
   ByRef Angle2 As Double, _
   ByRef Angle3 As Double, _
   ByRef Angle4 As Double _
)