選択（VerboseEvents）のフィーチャクラスへアクセスする方法

'ThisDocumentの取得
Dim pMxDocument As IMxDocument
Set pMxDocument = ThisDocument
 
'選択レイヤの取得
Dim pFeatureLayer As IFeatureLayer
Set pFeatureLayer = pMxDocument.SelectedLayer
 
'選択レイヤのフィーチャクラスを取得
Dim pFeatureClass As IFeatureClass
Set pFeatureClass = pFeatureLayer.FeatureClass