ObjectTypes

Здравствуйте
Добавляю к типу новый режим

Set eStyle = New ElemStyle
eStyle.PatColor = RegionBackColor
eStyle.FillStyle = RegionFillStyle
eStyle.BorderColor = RegionBorderColor
eStyle.BorderWidth = RegionBorderWidth
eStyle.BorderStyle = RegionBorderType

Map1.Map.Layers.Active.ObjectTypes.Item(1).Modes.AddItem Trim(txtTip.Text), eStyle

Добавлениее происходит без проблем
В добавленном типе пытаюсь изменить цвет patcolor и не только
Пробую и так

Set eStyle = New ElemStyle
eStyle.PatColor = RegionBackColor
eStyle.FillStyle = RegionFillStyle
eStyle.BorderColor = RegionBorderColor
eStyle.BorderWidth = RegionBorderWidth
eStyle.BorderStyle = RegionBorderType
Map1.Map.Layers.Active.ObjectTypes.Item(1).Modes.Item(Trim(txtTip.Text)).ElemStyle = eStyle
или так
Map1.Map.Layers.Active.ObjectTypes.Item(1).Modes.Item(Trim(txtTip.Text)).ElemStyle.PatColor = RegionBackColorа у меня все время закрышивается в черный цвет, что касается изменения других параметров

eStyle.BorderColor
eStyle.BorderWidth
eStyle.BorderStyle
то тут проблем не возникает

Что это может быть
С уважением