Get The Sublinks With The Same Reference Link As Another Sublink Snippet

        /// <summary>
        /// Retrieve all the sublinks that share the same reference link as a given sublink
        /// </summary>
        /// <param name="schemSubLink">The ISchematicInMemoryFeatureSubLink from which you want to retrieve the sublinks</param>
        /// <returns>The retrieved IEnumSchematicInMemoryFeatureSubLink sublinks</returns>
        public ESRI.ArcGIS.Schematic.IEnumSchematicInMemoryFeatureSubLink GetAllSubLinksFromSubLink(ESRI.ArcGIS.Schematic.ISchematicInMemoryFeatureSubLink schemSubLink)
        {
                // cast ISchematicInMemoryFeatureSubLink.ReferenceLink into ESRI.ArcGIS.Schematic.ISchematicInMemoryFeatureReferenceLink
                ESRI.ArcGIS.Schematic.ISchematicInMemoryFeatureReferenceLink schRefLink=(ESRI.ArcGIS.Schematic.ISchematicInMemoryFeatureReferenceLink)schemSubLink.ReferenceLink;

        return schRefLink.SubLinks;
        }

        ''' <summary>
        ''' Retrieve all the sublinks that share the same reference link as a given sublink
        ''' </summary>
        ''' <param name="schemSubLink">The ISchematicInMemoryFeatureSubLink from which you want to retrieve the sublinks</param>
        ''' <returns>The retrieved IEnumSchematicInMemoryFeatureSubLink sublinks</returns>
        Public Function GetAllSubLinksFromSubLink(ByVal schemSubLink As ESRI.ArcGIS.Schematic.ISchematicInMemoryFeatureSubLink) As ESRI.ArcGIS.Schematic.IEnumSchematicInMemoryFeatureSubLink

                ' cast ISchematicInMemoryFeatureSubLink.ReferenceLink into ESRI.ArcGIS.Schematic.ISchematicInMemoryFeatureReferenceLink
                Dim schRefLink As ESRI.ArcGIS.Schematic.ISchematicInMemoryFeatureReferenceLink=TryCast(schemSubLink.ReferenceLink, ESRI.ArcGIS.Schematic.ISchematicInMemoryFeatureReferenceLink)

                Return schRefLink.SubLinks
        End Function