How do you set a text background fill in Corel Draw VBA?


 I am trying to set a background fill on some text in Draw VBA to 0, 0, 0, 0 and it's proving to be a little more difficult than originally planned. Below is what I have so far...

    Dim s1 As Shape
    Set s1 = ActiveLayer.CreateArtisticText(2, 2, "20")
    s1.TextRange.CharBackFill 0, 0, 0, 0

Also does anyone know how to say "20"" I thought it would be "20" & """ or something, but that doesn't seem to work. Any help is appreciated!

No Data
  • Sub text_fill_and_backfill()
    Dim s As Shape
        Set s = ActiveLayer.CreateArtisticText(2, 2, "20" & """")
        s.Text.Story.Fill.ApplyUniformFill CreateRGBColor(255, 255, 0)
        s.Text.Story.CharBackFill.ApplyUniformFill CreateRGBColor(0, 0, 0)
    End Sub

    That draws this:

No Data