Нарисовать линию в Word - Visual Basic .NET

Формулировка задачи:

                    Листинг программы
                
        doc.Shapes.AddConnector(Microsoft.Office.Core.MsoConnectorType.msoConnectorStraight, 129.75, 138.55, 368.5, 0).Line.Weight = 2.0

использовал данный код на wordObjectLibrary 12.0, чертилась горизонтальная линия чёрного цвета (что странно, последний аргумент должен конечную позицию по Y, но при изменении на сто, конечная точка спускалась на сто относительно первого аргумента). перешёл на другой компьютер, линия стала синей и последний аргумент стал работать как нужно). Суть: необходима чёрная горизонтальная линия, как сделать? Заранее спасибо

Решение задачи: «Нарисовать линию в Word»

textual
                            Листинг программы 
                        
With doc.Shapes.AddConnector(Microsoft.Office.Core.MsoConnectorType.msoConnectorStraight, 129.75, 138.55, 368.5, 0).Line
    .Weight = 2.0
    .BackColor = 0
End With