public class ImageListBullet :
    ListBullet

Public Class ImageListBullet
    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 an image bullet for a text paragraph
        Stream stream = new FileStream(@"..\..\..\data\image.png", FileMode.Open, FileAccess.Read);
        ImageListBullet i_bullet = new ImageListBullet { Image = new OfficeImage(DXImage.FromStream(stream)) };

        TextParagraph paragraph2 = new TextParagraph();
        paragraph2.Properties.ListBullet = i_bullet;
        paragraph2.Text = "Paragraph 2";
        shape.TextArea.Paragraphs.Add(paragraph2);

    }
}

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 an image bullet for a text paragraph
            Dim stream As Stream = New FileStream("..\..\..\data\image.png", FileMode.Open, FileAccess.Read)
            Dim i_bullet As ImageListBullet = New ImageListBullet With {
                    .Image = New OfficeImage(DXImage.FromStream(stream))
                }
            Dim paragraph2 As TextParagraph = New TextParagraph()
            paragraph2.Properties.ListBullet = i_bullet
            paragraph2.Text = "Paragraph 2"
            shape.TextArea.Paragraphs.Add(paragraph2)

        End Sub
    End Class
End Namespace