選択(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