求助:engine开发中identify功能的实现

<P>engine开发中显示属性,我用以下的方式实现:
Private Sub MapControl1_OnMouseDown(ByVal button As Long, ByVal shift As Long, ByVal x As Long, ByVal y As Long, ByVal mapX As Double, ByVal mapY As Double)
If opState = "findByPoint" Then
Dim pIdentify As IIdentify
Set pIdentify = Me.MapControl1.Layer(0)
Dim pPoint As IPoint
Set pPoint = New Point
pPoint.x = mapX
pPoint.y = mapY
Dim pIDArray As IArray
Set pIDArray = pIdentify.Identify(pPoint)

Dim pGeoObj As IIdentifyObj
Dim pDisplay As IScreenDisplay
Set pDisplay = New ScreenDisplay
pDisplay.hWnd = Me.MapControl1.hWnd

If Not pIDArray Is Nothing Then
Set pGeoObj = pIDArray.Element(0)
pGeoObj.Flash pDisplay
End If

End If
End Sub
(点查属性时opState值是"findByPoint")
请问,Set pIDArray = pIdentify.Identify(pPoint)为什么得不到我想要的feature???</P>

先利用点空间查询,自己编写窗体,显示属性就行

<P>哦,,你是如何解决的???</P>

如果单用engine的库好象是不能获取arcmap里的对话框滴