Public Function Add( _
   ByVal dPipeDiameter As Double, _
   ByVal NumPaths As Long, _
   ByRef Path() As Object, _
   ByVal bAllowGradient As Boolean, _
   ByVal dGradientValue As Double, _
   ByVal PipeFileName As String, _
   ByVal ElbowFileName As String, _
   ByVal TeeFileName As String, _
   ByVal CrossFileName As String, _
   ByVal CouplingFileName As String _
) As Pipe