Use GPDispatch.Public Sub SelectByLocation()Dim pMxDoc As IMxDocumentSet pMxDoc = ThisDocumentDim pMap As IMapSet pMap = pMxDoc.FocusMapDim pSelectLayer As IFeatureLayerSet pSelectLayer = pMap.Layer(0)Dim pInLayer As IFeatureLayerSet pInLayer = pMap.Layer(1)Dim GP As ObjectSet GP = CreateObject("esriGeoprocessing.GpDispatch.1")GP.selectLayerBylocation_Management pInLayer, "INTERSECT", pSelectLayer, "", "NEW_SELECTION"End Sub