Sub FindControl(ByVal Ctrls As Control)

For Each C As Control In Ctrls.Controls

MessageBox.Show(C.Name)

If C.HasChildren Then

FindControl(C)

End If

Next

End Sub