Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) Handles Button1.Click
        GetControls(Me)
    End Sub
 
    Private Sub GetControls(ByVal c As Control)
        Debug.WriteLine(c.Name)
        For Each c1 As Control In c.Controls
            GetControls(c1)
        Next
    End Sub

________
Alle Angaben ohne Gewähr. Keine Haftung für Vorschläge, Tipps oder sonstige Hilfe, falls es schiefgeht, nur Zeit verschwendet oder man sonst nicht zufrieden ist