Set A Point Vertices Collection On A SchematicInMemoryFeatureLink Snippet

        /// <summary>
        /// Set a list of point vertices on an in-memory schematic feature link
        /// </summary>
        /// <param name="schemLink">The ISchematicInMemoryFeatureLink where the vertices are set</param>
        /// <param name="pPoints">The point vertices IPointCollection</param>
        public void SetVertexCollectionToLink(ESRI.ArcGIS.Schematic.ISchematicInMemoryFeatureLink schemLink, ESRI.ArcGIS.Geometry.IPointCollection pPoints, int Position)
        {
                // cast SchematicInMemoryFeatureLink into ISchematicInMemoryFeatureLinkGeometry
                ESRI.ArcGIS.Schematic.ISchematicInMemoryFeatureLinkGeometry myGeo=(ESRI.ArcGIS.Schematic.ISchematicInMemoryFeatureLinkGeometry)schemLink;
                if (myGeo != null)
                {
                        myGeo.SetVertexCollection(pPoints);
                }
        }

        ''' <summary>
        ''' Set a list of point vertices on an in-memory schematic feature link
        ''' </summary>
        ''' <param name="schemLink">The ISchematicInMemoryFeatureLink where the vertices are set</param>
        ''' <param name="pPoints">The point vertices IPointCollection</param>
        Public Sub SetVertexCollectionToLink(ByVal schemLink As ESRI.ArcGIS.Schematic.ISchematicInMemoryFeatureLink, ByVal pPoints As ESRI.ArcGIS.Geometry.IPointCollection)

                ' cast SchematicInMemoryFeatureLink into ISchematicInMemoryFeatureLinkGeometry
                Dim myGeo As ESRI.ArcGIS.Schematic.ISchematicInMemoryFeatureLinkGeometry=TryCast(schemLink, ESRI.ArcGIS.Schematic.ISchematicInMemoryFeatureLinkGeometry)
                If myGeo IsNot Nothing Then
                        myGeo.SetVertexCollection(pPoints)
                End If
        End Sub