subLoopCtrl(Me)

Sub subLoopCtrl(ByVal Ctrl As Control)
  For Each myCtrl As Control In Ctrl.Controls
 
    If myCtrl.Controls.Count > 1 Then
      subSetControlStyle(myCtrl)  
      subLoopCtrl(myCtrl)
    Else
      subSetControlStyle(myCtrl)
    End If
 
  Next
End Sub

Sub subSetControlStyle(ByVal ctrl As Control)
 
  Select Case TypeName(ctrl)
      Case "TextBox"  ', Andere Typen später
 
        ... Setzen der Rahmenfarbe
 
  End Select
End Sub