Um comando para formatar vários controles em um formulário

Boa tarde amigos!

Tenho um formulário onde preciso formatar vários controles conforme uma condição em um controle.

Então a estrutura seria:

If ControleCondição.Value = Condição Then

Controle 1, Controle 2, Controle 3 .... Controle N .BorderWidth = 2
Controle 1, Controle 2, Controle 3 .... Controle N .ForeColor = VbRed

. . . outras propriedades . . .

End If

Já tentei de tudo mas não sei fazer.
A razão para buscar um comando assim é facilitar a codificação porque a quantidade de controles a ser formatada é grande.

Agradeço muito quaisquer sugestões dos amigos do forum.

Abç!
Lárimer

Se puder adaptar essa função :

Código:

ALTERAR TODOS OS CONTROLES DE UM FORMULÁRIO

Do Help do Access

Sub AlternarControle(frm As Form)
   Dim ctl As Control
   Dim intI As Integer, intPodeEditar As Integer
   Const conTransparente = 0
   Const conBranco = 16777215
   For Each ctl in frm.Controls
      With ctl
         Select Case .ControlType
            Case acLabel
               If .SpecialEffect = acEffectShadow Then
                  .SpecialEffect = acEffectNormal
                  .BorderStyle = conTransparente
                  intPodeEditar = True
               Else
                  .SpecialEffect = acEffectShadow

intPodeEditar = False
               End If
            Case acTextBox
               If .SpecialEffect = acEffectNormal Then
                  .SpecialEffect = acEffectSunken
                  .BackColor = conBranco
               Else
                  .SpecialEffect = acEffectNormal
                  .BackColor = frm.Detalhe.BackColor
               End If
         End Select
      End With
   Next ctl
   If intPodeEditar = False Then
      With frm
         .AllowAdditions = False
         .AllowDeletions = False

.AllowEdits = False
      End With
   Else
      With frm
         .AllowAdditions = True
         .AllowDeletions = True
         .AllowEdits = True
      End With
   End If
End Sub


Super obrigado Cleverson !

Mas esse código não ajuda muito porque é para todos os controles no formulário.

No meu caso preciso apontar o comando para um conjunto de controles e alterar algumas propriedades nesse conjunto.

A utilidade seria evitar fazer três ou quatro linhas de código para cada controle.

Então, se fosse possível algo como listar os controles a serem alterados numa linha e mandar alterar as propriedades para todos.

Mas vou tentar adaptar esse código que sugeriste.

Muito obrigado !
Lárimer