Private Sub sevXPForm1_BackColorChanged(nColor As stdole.OLE_COLOR)
  Dim oControl
 
  On Error Resume Next
  For Each oControl In Me.Controls
    Select Case TypeName(oControl)
      Case "TextBox", "CommandButton", "ListBox", "ListView", "sevXPForm"
        ' keine Anpassung vornehmen
 
      Case Else
        ' Hintergrundfarbe anpassen  
        oControl.BackColor = Me.BackColor
    End Select
  Next       
End Sub

_________________________
Professionelle Entwicklerkomponenten
www.tools4vb.de