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