WrapTextMode помогите разобраться [РЕШЕНО]

Необходимо нарисовать линию, со свойствами:com.sun.star.text.TextContent AnchorType.AT_PARAGRAPHи com.sun.star.text.WrapTextMode.????Я знаю шесть параметров WrapTextMode - NONE; THROUGHT; PARALLEL; DYNAMIC; LEFT; RIGHT.Но ни один из этих параметров не делает линию Foreground т.е. на первом плане.Почему-то параметр THROUGHT выносит её на задний план BackgroundМожет есть еще какие-то свойства у WrapTextMode?Пример кода:Код:Sub LineeDim Doc As ObjectDim Page As ObjectDim LineShape As ObjectDim Anchor As LongDim Wrap As LongDim Point As New com.sun.star.awt.PointDim Size As New com.sun.star.awt.SizeAnchor = com.sun.star.text.TextContentAnchorType. AT_PARAGRAPHWrap = com.sun.star.text.WrapTextMode.THROUGHT 'Здесь нужен параметр выносящий линию вперед как текст'Point.x = 7000Point.y = 5800Size.Width = 7530Size.Height = 0Doc = ThisComponentPage = Doc.DrawPage()LineShape = Doc.createInstance("com.sun.star.drawing .LineShape")LineShape.Size = SizeLineShape.Position = PointLineShape.AnchorType = AnchorLineShape.TextWrap = WrapPage.add(LineShape)End SubСпасибо.