Получение большого числа Label и запись их в массив - Visual Basic .NET

Формулировка задачи:

Всем здравствуйте.

Dim lbl() As Label
lbl = New Label() {Label1, Label2, Label3, Label4, Label5, Label6, Label7, Label8, Label9, Label10, Label11, Label12, Label13, Label14, Label15, Label16, Label17, Label18, Label19, Label20, Label21, Label22, Label23, Label24, Label25, Label26, Label27, Label28, Label29, Label30, Label31, Label32, Label33, Label34, Label35, Label36, Label37, Label38}

Выглядит как-то громоздко. Как то же самое записать покороче?

Решение задачи: «Получение большого числа Label и запись их в массив»

textual
                            Листинг программы 
                        

                                   ReDim lbl(37)
        For k As Integer = 0 To 37
            lbl(k) = Controls("Label" & (k + 1))
        Next k
                        