achtergrondkleur wijzigen

[Sytse1]

Het is niet omdat het moet maar meer of het kan

Middels vba wil ik alle textboxen, labels, comboboxen in een form selecteren en dan de BackColor en de ForeColor wijzigen.
Voor de textbox lukt mij dit maar voor de labels enz krijg ik het niet voor elkaar.
Hoe moet dit voor Caption en ComboBox?

'wijzig de kleur in een textbox
Dim tb As Control
For Each tb In Me.Controls
        If TypeOf tb Is TextBox Then
            tb.BackColor = RGB(255, 250, 250)
            tb.ForeColor = RGB(255, 64, 64)
        End If
Next

 

[edmoor]

zo:

[COLOR="#008000"]'wijzig de kleur in controls[/COLOR]
For Each ctl In Me.Controls
    Select Case TypeName(ctl)
        Case "TextBox"
            ctl.BackColor = RGB(255, 250, 250)
            ctl.ForeColor = RGB(255, 64, 64)

        Case "Label"
            ctl.BackColor = RGB(255, 250, 250)
            ctl.ForeColor = RGB(255, 64, 64)

        Case "ComboBox"
            ctl.BackColor = RGB(255, 250, 250)
            ctl.ForeColor = RGB(255, 64, 64)
        End If
    End Select
Next ctl

 

[Sytse1]

Edmoor bedankt.