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

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