looping all label in array

[sal21]

I have this array of labels named lpr, similar:

lpr(0)
lpr(1)
ecc...

how to loop all label in array on a form and retrieve the tag string?

[HansV]

You can use

Code: Select all

    Dim i As Long
    For i = lpr.LBound To lpr.UBound
        Debug.Print lpr(i).Tag
    Next i

or

Code: Select all

    Dim itm As Label
    For Each itm In lpr
        Debug.Print itm.Tag
    Next itm

[sal21]

You can use

Code: Select all

    Dim i As Long
    For i = lpr.LBound To lpr.UBound
        Debug.Print lpr(i).Tag
    Next i

or

Code: Select all

    Dim itm As Label
    For Each itm In lpr
        Debug.Print itm.Tag
    Next itm