Visual Basic - Recorrer PowerPack Shapes VB2008

Buenas

Quisiera saber cómo podría recorrer todos los elementos powerpacks que tengo introducido en un formulario de visual basic 2008. Me explico con un ejemplo: Si quiero recorrer todos los controles (labels, textbox...) de mi formulario lo hago de esta manera


Pero esto no me recorre por ejemplo los rectangulos que tenga insertados.

Alguien podría decirme qué codigo es el que necesito para conseguirlo??

Muchas gracias!!!

Line and Shape controls are windowless controls; they have no window handles and therefore use less system resources.

Ese es el problema. For Each c As Control lo que busca son controles con ventana. Cuando un control no tiene ventana no es tan fácil de encontrar.

Prueba buscando el shape expresamente, algo como For Each shape As Shape

Vayap.

Pues con el shape no me funciona, pero seguiré bichenado posibilidades ya que se que no tiene un window handle.

Muchas gracias!

Lo que tienes que hacer es una funcion recursiva . Hacer el For Each como tienes y realizas las operaciones correspondientes mediante if ... o Case , o como kieras ...y en caso de no ser un objeto que se quiere controlar llamas a la funcion orta vez. Te adjunto un ejemplo en el que recorro toda la pantall e imprimo el nombre y el valor de los textbox

Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
RecorrerControlesPantalla(Me)
End Sub

Sub RecorrerControlesPantalla(ByVal ControlPantalla As Control)

For Each Control As Object In ControlPantalla.Controls

Select Case Control.GetType.ToString

' si es un texbox
Case "System.Windows.Forms.TextBox"
Dim TextBox As System.Windows.Forms.TextBox = Control

MsgBox(TextBox.Name.ToString & " --> " & TextBox.Text.ToString)

' si es un combo box
Case "System.Windows.Forms.ComboBox"
Dim ComboBox As System.Windows.Forms.ComboBox = Control


End Select

RecorrerControlesPantalla(Control)

Next

End Sub