Private Sub Info_dil_MouseDown(ByVal button As Long, ByVal shift As Long, ByVal x As Long, ByVal y As Long)
Dim pMxApp As IMxApplication
Dim pMxDoc As IMxDocument
Dim pMap As IMap
Dim pActiveView As IActiveView
Dim pEnvelope As IEnvelope
Dim pIDArray As IArray
Dim pIdentify As IIdentify
Dim pIdObj As IIdentifyObj
Dim pFeatIdObj As IFeatureIdentifyObj
Set pMxApp = Application
Set pMxDoc = Application.Document
Set pMap = pMxDoc.FocusMap
Set pActiveView = pMap
Set pEnvelope = pMxDoc.CurrentLocation.Envelope
pEnvelope.Expand pMxDoc.SearchTolerance, pMxDoc.SearchTolerance, False
'Refresh the old selection to erase it
pActiveView.PartialRefresh esriViewGeoSelection, Nothing, Nothing
'Perform the selection using a point created on mouse down
pMap.SelectByShape pEnvelope, pMxApp.SelectionEnvironment, True
'Refresh again to draw the new selection
pActiveView.PartialRefresh esriViewGeoSelection, Nothing, Nothing
End Sub
Вот такой процедурой нажимая на объект я его делаю Select, а как теперь добраться до записи которая выделена,видела где-то Sample и не помню где =(