Dim pSelectionSet_Nodes As ISelectionSet Set pSelectionSet_Nodes = pFeatureSelection_Nodes.SelectionSet Dim pEnumGeometry As IEnumGeometry Dim pEnumGeometryBind As IEnumGeometryBind Set pEnumGeometry = New EnumFeatureGeometry Set pEnumGeometryBind = pEnumGeometry pEnumGeometryBind.BindGeometrySource Nothing, pSelectionSet_Nodes Dim pGeometryFactory As IGeometryFactory Set pGeometryFactory = New GeometryEnvironment Dim pGeometry As IGeometry Set pGeometry = pGeometryFactory.CreateGeometryFromEnumerator(pEnumGeometry) Dim pSpatialFilter As ISpatialFilter Set pSpatialFilter = New SpatialFilter With pSpatialFilter Set .Geometry = pGeometry .GeometryField = "SHAPE" .SpatialRel = esriSpatialRelIntersects End With pFeatureSelection_Rivers.SelectFeatures pSpatialFilter, esriSelectionResultNew, False