Private Sub Command1_Click()
    Dim appRef As New Illustrator.Application
    Dim docRef As Illustrator.Document
    Dim itemRef As Illustrator.PathItem
    Dim pageItem1 As Illustrator.PageItem
    Dim symbolRef As Illustrator.Symbol
    Dim symbolItemRef  As Illustrator.SymbolItem
    Dim i As Integer
    Dim y As Integer
    y = 600

    Set docRef = appRef.Documents.Add

    ' create a pageItem for each art style, create a
    ' symbol and symbolItem for each new pageItem.
    For i = 1 To docRef.ArtStyles.Count
        Set itemRef = docRef.PathItems.Ellipse(y, 100, 40, 20)
        docRef.ArtStyles(i).ApplyTo itemRef
        Set symbolRef = docRef.Symbols.Add(itemRef.PageItem)
        Set symbolItemRef = docRef.SymbolItems.Add(symbolRef)
        symbolItemRef.Left = 300
        symbolItemRef.Top = y
        y = y - 40  ' stagger the height of the page items
    Next
End Sub