フィーチャクラスの作成に必要な Fields オブジェクトの取得

'FeatureClassDescriptionオブジェクトの作成
Dim pObjectClassDescription As IObjectClassDescription
Set pObjectClassDescription = New FeatureClassDescription

'Fieldsオブジェクトの取得
Dim pFields As IFields
Set pFields = pObjectClassDescription.RequiredFields