'Im Formular:
Dim lbround as new list(of Label)
Dim score as new list(of label)
Dim LabelIndex as integer = 0
 
'Die benötigten Label-Objekte der Listen jeweils in einer Schleife erstellen
'und anordnen 
'z.B. im Form_Load_Event
 
 
In der Display-Routine:
Score(LabelIndex).Text = ....
 
Im Timer:
LabelIndex += LabelIndex
If labelindex >= Score.Count-1 then LabelIndex = 0