with et end with

Bonjour, j'ai une petite question concernant le with et le end with....

j'ai une série de control sur ma page auquels je modifie les couleurs...

With frmGenre
.BackColor = Coul_0 ' Coul_0 = noir
.ForeColor = Coul_1 ' Coul_1 = Blanc
End With

mon problème c'est que j'ai un certain nombre de controle (pour ne pas dire un nombre certain de control) donc ma question est : existe-t-il un moyen pour faire quelque chose du genre :

With frmGenre, frnX,frmY.... etc
.BackColor = Coul_0 ' Coul_0 = noir
.ForeColor = Coul_1 ' Coul_1 = Blanc
End With
merci de votre Attention....
@+ je l'espère....

Bonjour,
   Essai de chercher dans une boucle du genre,

Dim FrmCtr as control

            For Each FrmCtr in controls
                  .BackColor = Coul_0 ' Coul_0 = noir
                  .ForeColor = Coul_1 ' Coul_1 = Blanc
            Next FrmCtr

J'ai vu trainé cela quelque part....
Bon Courage A plus SebOfBorg

Pardon ...

           For Each FrmCtr in controls
                  With FrmCtr
                        .BackColor = Coul_0 ' Coul_0 = noir
                        .ForeColor = Coul_1 ' Coul_1 = Blanc
                  End With
            Next FrmCtr

Of course....
Bon Courage
A plus
SebOfBorg

salut

Dim frm As Frame
For Each frm In Form ' nom de la forme ou il y a tes frames
With frm
'.Backcolor=..
End With
Next


@ + ,Aziz

Messieurs, et Mesdames Je tiens à vous remercier... pour vos réponses...
je vais essayer les différentes possibilité et je vous tiens au courant...
@+ Sator2