'フィーチャの取得 Dim pPoint As IPoint = m_hookHelper.ActiveView.ScreenDisplay.DisplayTransformation.ToMapPoint(X, Y) Dim pIdentify As IIdentify = CType(pCountryFeatureLayer, IIdentify) Dim pArray As IArray = pIdentify.Identify(CType(pPoint, IGeometry)) If pArr ...