Как назначить тип линии?

[Николай]

Пишу на VB6: ksDocument2D.ksLineSeg 10, 20, 30, 40, 1 'Контур
где 1- тип линии "основная". Как программно поменять её на
тип линии "Красная утолщённая номер 2" из библиотеки Компаса
ShaftLibStyle.lcs?

[Sabahs]

IStyles.AddStyleFromLibrary - Добавить стиль из библиотеки.

[Николай]

 Борис Николаевич, а поподробней можно?
Вот так,  с наскока, конечно не сработало...
Куда что прописывать?

IStyles.AddStyleFromLibrary ShaftLibStyle.lcs, 2
           ksDocument2D.ksLineSeg 0, -Lu, D2u / 2, -Lu

[Sabahs]

Примера у меня нет, функция должна вернуть указатель на стиль, у него есть "Идентификатор стиля в API" и другие, какой подсовывать, разберетесь методом научного тыка. Путь к библиотеки возможно нужно указывать полный.
IStyles:=IApplication.LibraryStyles;
IStyle:=IStyles.AddStyleFromLibrary('ShaftLibStyle.lcs',2,True);
ksDocument2D.ksLineSeg(10,20,30,40,IStyle.ApiStyleId);
IStyle.ApiStyleId - Идентификатор стиля в API

[Николай]

Спасибо.