I am really sorry for my terrible English.But I need your help.I would really appreciate someone giving me some help with this small for you and big for me problem.
Here is a procedure I clicking on the object I'm doing it Select, and how to get to the record now that is allocated, saw somewhere Sample and I do not remember where = (
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