in a writer document i try to set a color for a paragraph-style border using a macro... somehow i do not get this to work (though the characterheight is correctly working)

sub testBorderColor

    dim oFamilies
    dim oStyle
    dim oStyles

    oFamilies = ThisComponent.StyleFamilies
    oStyles = oFamilies.getByName("ParagraphStyles")
    oStyle = oStyles.getByName("gk-horlijn2")

    oStyle.CharHeight = cLng(9)
    oStyle.TopBorder.Color = rgb(250,0,0)

end sub