Macrosustitucion en Visual Basic 2010

[HaverRamirez]

Eso es Recursión
dentro de basic se usa procedimientos para recorrer los datos, por ejemplo

Código vb:

Public Function RecorreValida(ByVal G As GroupBox) As Boolean
        Try
            For Each C As Control In G.Controls
 
               
                If TypeOf C Is Combobox Then
'el tipo isvalidselection es parte del objeto personalisado regresa true o false
                    If CType(C, Combobox).IsValidSelection = False Then
'vincula error es un proc donde se adhiere un error provider y se despliegan mensajes
                        VinculaError(C)
                        Return False
                    End If
                End If
                If TypeOf C Is TextBox Then
                    If String.IsNullOrEmpty(CType(C, CONACC.TextBoxAlfanumerico).Text) Then
                        VinculaError(C)
                        Return False
                    End If
                End If
                'aqui vuelvo a llamar la misma funcion, o sea esta, pero le mando el groupbox y asi sucesivamente
 
                if typeof c is groupbox then
                recorreValida(c)
                end if
                
            Next
            Return True
        Catch ex As Exception
            MsgBox(ex.Message)
        End Try
    End Function