Italian B4j - Indicizzazione Label

sub button_mouseClicked(EventData as mouseEvent)
   dim btnSender as button
   btnSender = Sender

  log(btnSernder.tag)

end sub

for i = 1 to 6
   ' ... dare alle 6 label il valore Text = i
next

For Each nd As Node In Pane1.GetAllViewsRecursive
    If nd Is Label Then
    End If
Next

Dim Index As Int
For Each nd As Node In MainForm.RootPane.GetAllViewsRecursive
    If nd Is Label Then
        Index = Index + 1
        Dim lbl As Label = nd
        lbl.Text = Index
    End If
Next

Dim Index As Int = 0

    Dim Indice As Int = 0
    For Each nd As Node In pnlServizi.GetAllViewsRecursive
        If nd Is Label Then
            Dim lbl As Label = nd
            If Indice <> 0 Then
                lbl.Text = Indice
            End If
            Indice = Indice + 1
        End If
    Next