Quote Originariamente inviata da eziogsv Visualizza il messaggio
For Each c As Control In XX.Controls
If TypeOf c Is Label Then
Select case Cint(c.Name.Last) (o se sono più di 10... Select case Cint(C.Name.Replace("label",""))

praticamente hai scomposto Label e Numeri.

Puoi benissimo fare una Function che dal numero ti ritorni il Testo: no SelectCase ma
If Cint(c.Name.Last) = MyNum then Return c.Text
E' vero che ho l'ultimo numero della label ma è anche vero che sono punto a capo perchè ho sempre il case al posto dell'if.

Io, banalmente ho bisogno di una cosa del genere:
for i = 1 to 10
(label + i).text = i
next

e questo in maniera generale, sia con gli oggetti sia con le variabili.