Controls 控制

Dim aa As Integer
aa = 0
For Each c As Control In Panel1.Controls

If TypeOf c Is Label Then

DirectCast(c, Label).Text = aa
DirectCast(c, Label).BackColor = Drawing.Color.Red


End If

aa = aa + 1

Next