Looping layers: Why doesn't this work?

Hi,

Here's a simple piece of code:

    With CorelDRAW.ActiveDocument.ActivePage
        For I = 1 To .Layers.count
            MsgBox .Layers.Item(I).Name
        Next I
    End With

But I get an error saying that "I" is wrong*. If I hard code I to 1, or 2... it works. This would work to:

Const I as Byte = 1

Why can't I use variables when I specify the item?
(I encounter the same problem when looping through any type of object.)

*Let's say we set I=-1, we would get the same msg.


Thanks
Andy

[Alex]

Originally Posted by andyb

Why can't I use variables when I specify the item?

You can, you just need to declare your variables as Long:

Dim i As Long
i=2
...Layers(i)...

This will work.

Or better yet, use VBA's For Each statement:

Dim lr as Layer
For Each lr in ActivePage.Layers
    MsgBox lr.Name
Next lr

Looks simpler, huh?