procedimiento recursivo

[ebu]

sorry, me he confundido.

Sub niños(swComp As object)

Dim vChildComp As Variant
Dim i As Integer
Dim ConfigName As String
Dim b As object
Dim swChildComp As object


vChildComp = swComp.GetChildren 'carga unos objetos en la matriz vChildComp


For i = 0 To UBound(vChildComp)
Set swChildComp = vChildComp(i)

Set b = swChildComp.GetModelDoc
deitura b 'llama a otro procedimiento

niños swChildComp ' yo creo q aqui esta el fallo, no me lo reconoce!!lo q hace es ignorar la rellamada al procedimiento y solo ejecuta el for.
Next i

End Sub