'''' This code is part of Document Solutions for Word demos.'' Copyright (c) MESCIUS inc. All rights reserved.''Imports GrapeCity.Documents.Word
'' This sample demonstrates how to create a simple bullet list.'' See the NumberedList sample for how to create a numbered list.Public Class Bullets    Function CreateDocx() As GcWordDocument        Dim doc = New GcWordDocument()        Dim pars = doc.Body.Paragraphs        pars.Add("Example of a bullet list with three levels:")
        '' A ListTemplate Is used to make paragraphs part of a list        Dim myListTemplate = doc.ListTemplates.Add(BuiltInListTemplateId.BulletDefault, "myListTemplate")
        '' Action to add a list item        Dim addListItem As Action(Of String, Integer) =            Sub(t_, l_)
                Dim p_ = pars.Add(t_)                '' This makes a paragraph a list item                p_.ListFormat.Template = myListTemplate                '' Set the item's nesting level (first level is 0):                p_.ListFormat.LevelNumber = l_                '' This ensures item spacing consistent with MS Word                p_.Style = doc.Styles(BuiltInStyleId.ListParagraph)            End Sub
        '' Build a bullet list with 3 levels of nesting        addListItem("Bullet item 1", 0)        addListItem("Bullet item 2", 0)        addListItem("Bullet item 3", 0)        addListItem("Nested bullet item 1", 1)        addListItem("Nested bullet item 2", 1)        addListItem("Double nested bullet item 1", 2)        addListItem("Double nested bullet item 2", 2)        addListItem("Nested bullet item 3", 1)        addListItem("Bullet item 4", 0)
        '' Done:        Return doc    End FunctionEnd Class