フィーチャ レイヤーに設定されているフィールドのエイリアス名を取得する方法

Dim pOrderedLayerFields As IOrderedLayerFields
Set pOrderedLayerFields = pLayer

Dim pFieldInfoSet As IFieldInfoSet
Set pFieldInfoSet = pOrderedLayerFields.FieldInfos

Dim pFieldInfo As IFieldInfo
Set pFieldInfo = pFieldInfoSet.FieldInfo(0)

Debug.Print pFieldInfo.Alias