Verificar componentes do Formulário

[MRMB]

Pessoal,

Como faço pra validar todos os componentes de um formulario. Em determinadado momento precisaria validar todos os componentes da tela e quando for TextBox mudar a cor de fundo para amarelo.

Desde Já agradeço.

Editado Setembro 1, 2008 por Crispim

[MRMB]

Pessoal,

pesquisei aqui e consegui fazer do seguinte modo:

Private Sub Command1_Click()
    
    Dim ctlControl As Object

    For Each ctlControl In Controls
        If TypeOf ctlControl Is ListBox Or _
        TypeOf ctlControl Is ComboBox Or _
        TypeOf ctlControl Is TextBox Then
            ctlControl.Enabled = False
            ctlControl.BackColor = &H80000018
        End If

    Next
    
End Sub

E funcionou corretamente para minha situação.

T+

Editado Setembro 1, 2008 por Crispim