public class CharListBullet :
    ListBullet

Public Class CharListBullet
    Inherits ListBullet

using DevExpress.Docs;
using DevExpress.Docs.Presentation;
using DevExpress.Drawing;
using System.Drawing;

namespace PresentationApiSample;

public class Program {
    public static void Main(string[] _) {
        Presentation presentation = new Presentation();
        presentation.Slides.Clear();

        Slide slide = new Slide(SlideLayoutType.Blank);
        presentation.Slides.Add(slide);

        Shape shape = new Shape(ShapeType.Rectangle, 30, 30, 2000, 1000);
        slide.Shapes.Add(shape);

        // Use a char bullet for a text paragraph
        CharListBullet c_bullet = new CharListBullet('•');
        TextParagraph paragraph3 = new TextParagraph();
        paragraph3.Properties.ListBullet = c_bullet;
        paragraph3.Properties.ListBulletColor = new TextBulletColor(new OfficeColor(Color.Red));
        paragraph3.Text = "Paragraph 3";
        shape.TextArea.Paragraphs.Add(paragraph3);
    }
}

Imports DevExpress.Docs
Imports DevExpress.Docs.Presentation
Imports DevExpress.Drawing
Imports System.Drawing

Namespace PresentationApiSample

    Public Class Program
        Public Shared Sub Main(__ As String())

            Dim presentation As Presentation = New Presentation()
            presentation.Slides.Clear()

            Dim slide As Slide = New Slide(SlideLayoutType.Blank)
            presentation.Slides.Add(slide)

            Dim shape As Shape = New Shape(ShapeType.Rectangle, 30, 30, 2000, 1000)
            slide.Shapes.Add(shape)

            ' Use a char bullet for a text paragraph
            Dim c_bullet As CharListBullet = New CharListBullet("•"c)
            Dim paragraph3 As TextParagraph = New TextParagraph()
            paragraph3.Properties.ListBullet = c_bullet
            paragraph3.Properties.ListBulletColor = New TextBulletColor(New OfficeColor(Color.Red))
            paragraph3.Text = "Paragraph 3"
            shape.TextArea.Paragraphs.Add(paragraph3)

        End Sub
    End Class
End Namespace