できたコードです。


 For Each ctrl As Control In Me.Controls       'フォーム上のすべてのコントロールを取得
            If TypeOf ctrl Is Label Then        'ラベルのみをフィルタにかける
                Label1.Text = Label1.Text & " " & ctrl.Name     'ラベル名を表示
            End If
        Next

こんな感じです。