ID和KEYVALUE是并列属性。我需要上一级的OBJ。就是说怎么得到在TOOLUSED事件中得到这个Feature 对象的“句柄”，入口地址我都找不到怎么能去得到该对象的所有属性呢？
如果不是独立图元就可以这样得到FEATURE：
Private Sub Map1_SelectionChanged()
Dim oftrs As MapXLib.Features
       Set oftrs = Map1.Layers.Item(1).Selection
       MsgBox oftrs.Item(1).KeyValue
End Sub
而独立图元是不能添加到任何集合中的所以不能用SELECTION做为桥梁得到FEATURE，怎么办呢！！！？

通过图元的ID来获得

问题就在于我不知道怎么得到这个独立图元？？！！
Private Sub Map1_ToolUsed(ByVal ToolNum As Integer, ByVal X1 As Double, ByVal Y1 As Double, ByVal X2 As Double, ByVal Y2 As Double, ByVal Distance As Double, ByVal Shift As Boolean, ByVal Ctrl As Boolean, EnableDefault As Boolean)
Dim ftr As MapXLib.Feature
Dim lyr As MapXLib.Layer
Select Case ToolNum
       Case 1007
       set ftr=?
       MsgBox ftr.KeyValue
      
End Select
End Sub

那可以在ＴＯＯＬＵＳＥＤ事件内编写程序来实现，
ＭＡＰＸ安装目录中有自带的事例，你可以去看看．