Dim controlInfo As String = ""
    Private Sub getControlInfo(ByVal Controls As Control.ControlCollection)
        For Each control As Control In Controls
            controlInfo = controlInfo & control.Name & vbCrLf
            If (control.Controls.Count > 0) Then
                controlInfo = controlInfo & control.Name & " - Count = " & _
                  control.Controls.Count & vbCrLf
                getControlInfo(control.Controls)
            End If
        Next
    End Sub
 
    Private Sub cmdCrtlInfo_Click(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) Handles cmdCrtlInfo.Click
        getControlInfo(Me.Controls)
        MsgBox(controlInfo)
    End Sub