OrderedList Class

[Visual Basic]
Public Class OrderedList 
   Inherits List
   Implements IArea, ICoordinate 

[C#]
public class OrderedList : List, IArea, ICoordinate 

[Visual Basic] 

Imports System
Imports ceTe.DynamicPDF
Imports ceTe.DynamicPDF.PageElements

Module MyModule
    Sub Main()
        ' Create a PDF Document
        Dim MyDocument As Document = New Document

        ' Create a Page and add it to the document
        Dim MyPage As Page = New Page
        MyDocument.Pages.Add(MyPage)

        ' Create an OrderedList.
        Dim list As OrderedList = New OrderedList(50,120,300,500)

        list.ListItemTopMargin = 5
        list.ListItemBottomMargin = 5
        list.BulletPrefix = "("
        list.BulletSuffix = ")"
        list.TextColor = RgbColor.HotPink
        Dim label1 As Label = New Label("CeTe Software specializes in components for dynamic PDF generation and manipulation. The DynamicPDF™ product line allows you to dynamically generate PDF documents, merge PDF documents and add new content to existing PDF documents from within your applications.",50,50,400,200)
        label1.Align = TextAlign.Justify

        ' Add ListItem to the List.
        Dim item1 As ListItem = list.Items.Add(".NET products")
        item1.Underline = true
        Dim item2 As ListItem = list.Items.Add("JAVA products")
        item2.Underline = true
        Dim item3 As ListItem = list.Items.Add("COM products")
        item3.Underline = true

        ' Add OrderedSubList under ListItem item1.
        Dim subList1 As OrderedSubList = item1.SubLists.AddOrderedSubList(NumberingStyle.RomanUpperCase)
        subList1.TextColor = RgbColor.DarkGoldenRod
        Dim item4 As ListItem = subList1.Items.Add("DynamicPDF™ Generator for .NET")
        Dim item5 As ListItem = subList1.Items.Add("DynamicPDF™ Merger for .NET")

        Dim subList2 As OrderedSubList = item2.SubLists.AddOrderedSubList(NumberingStyle.RomanUpperCase)
        subList2.TextColor = RgbColor.DarkGoldenRod
        Dim item6 As ListItem = subList2.Items.Add("DynamicPDF™ Generator for JAVA")
        Dim item7 As ListItem = subList2.Items.Add("DynamicPDF™ Merger for JAVA")

        Dim subList3 As OrderedSubList = item3.SubLists.AddOrderedSubList(NumberingStyle.RomanUpperCase)
        subList3.TextColor = RgbColor.DarkGoldenRod
        Dim item8 As ListItem = subList3.Items.Add("DynamicPDF™ Generator")
        Dim item9 As ListItem = subList3.Items.Add("DynamicPDF™ ReportWriter")

        Dim subList4 As OrderedSubList = item6.SubLists.AddOrderedSubList(NumberingStyle.AlphabeticLowerCase)
        subList4.TextColor = RgbColor.BlueViolet
        Dim item10 As ListItem = subList4.Items.Add("Community Edition")
        Dim item11 As ListItem = subList4.Items.Add("Developer Edition")
        Dim item12 As ListItem = subList4.Items.Add("Server Edition")

        Dim subList5 As OrderedSubList = item7.SubLists.AddOrderedSubList(NumberingStyle.AlphabeticLowerCase)
        subList5.TextColor = RgbColor.BlueViolet
        Dim item13 As ListItem = subList5.Items.Add("Evaluation Edition")
        Dim item14 As ListItem = subList5.Items.Add("Developer Edition")
        Dim item15 As ListItem = subList5.Items.Add("Server Edition")

        Dim subList6 As OrderedSubList = item4.SubLists.AddOrderedSubList(NumberingStyle.AlphabeticLowerCase)
        subList6.TextColor = RgbColor.BlueViolet
        Dim item16 As ListItem = subList6.Items.Add("Community Edition")
        Dim item17 As ListItem = subList6.Items.Add("Professional Edition")
        Dim item18 As ListItem = subList6.Items.Add("Enterprise Edition")

        Dim subList7 As OrderedSubList = item5.SubLists.AddOrderedSubList(NumberingStyle.AlphabeticLowerCase)
        subList7.TextColor = RgbColor.BlueViolet
        Dim item19 As ListItem = subList7.Items.Add("Standard Edition")
        Dim item20 As ListItem = subList7.Items.Add("Professional Edition")
        Dim item21 As ListItem = subList7.Items.Add("Enterprise Edition")

        'Add the OrderedList to the page
        MyPage.Elements.Add(list)
        MyPage.Elements.Add(label1)

        ' Save the PDF
        MyDocument.Draw("C:\MyDocument.pdf")
    End Sub
End Module

[C#]