Loop On The Schematic Elements In A Schematic Diagram Snippet

        /// <summary>
        /// Looping on all the schematic elements contained in a SchematicDiagram
        /// </summary>
        /// <param name="schemDiagram">The SchematicDiagram which contains the schematic elements</param>
        public void SchematicElementsFromDiagram(ESRI.ArcGIS.Schematic.ISchematicDiagram schemDiagram)
        {
                 // cast SchematicDiagram into ISchematicElementContainer
                ESRI.ArcGIS.Schematic.ISchematicElementContainer schElemCont=(ESRI.ArcGIS.Schematic.ISchematicElementContainer)schemDiagram;

                // retrieve all the SchematicElement in the schematic diagram container
                ESRI.ArcGIS.Schematic.IEnumSchematicElement enumElement=schElemCont.SchematicElements;

                enumElement.Reset();
                // get the first SchematicElement
                ESRI.ArcGIS.Schematic.ISchematicElement schElement=enumElement.Next();
                bool isOk=false;
                while (schElement != null)
                {
                        // TODO: add your code here, set isOk to true to exit the loop

                        if (isOk) break;

                        // get the next SchematicElement
                        schElement=enumElement.Next();
                }
        }

        ''' <summary>
        ''' Looping on all the schematic elements contained in a SchematicDiagram
        ''' </summary>
        ''' <param name="schemDiagram">The SchematicDiagram which contains the schematic elements</param>
        Public Sub SchematicElementsFromDiagram(ByVal schemDiagram As ESRI.ArcGIS.Schematic.ISchematicDiagram)
                ' cast SchematicDiagram into ISchematicElementContainer
                Dim schElemCont As ESRI.ArcGIS.Schematic.ISchematicElementContainer=TryCast(schemDiagram, ESRI.ArcGIS.Schematic.ISchematicElementContainer)

                ' retrieve all the SchematicElement in the schematic diagram container
                Dim enumElement As ESRI.ArcGIS.Schematic.IEnumSchematicElement=schElemCont.SchematicElements

                enumElement.Reset()
                ' get the first SchematicElement
                Dim schElement As ESRI.ArcGIS.Schematic.ISchematicElement=enumElement.Next()
                Dim isOk As Boolean=False
                While (schElement IsNot Nothing)
                        ' TODO: add your code here, set isOk to true to exit the loop

                        If (isOk) Then Exit While

                        ' get the next SchematicElement
                        schElement=enumElement.Next()
                End While
        End Sub