If VBEX_OSVersion = "Windows XP" Then
      If IsThemeActive <> 0 Then
         'Ein Theme ist aktiviert, daher wird der Hintergrund weiss gemacht
         For Each c In Controls
            If TypeOf c Is CheckBox Or TypeOf c Is Button Or TypeOf c Is Frame _
              Or TypeOf c Is ListEx Or TypeOf c Is ListView Or TypeOf c Is _
              PictureBox Or TypeOf c Is TextBox Then
               c.BackColor = &H80000005
            End If
         Next c
      Else
         'Standard-Farben sind aktiviert, daher wird der Hintergrund grau
         For Each c In Controls
            If TypeOf c Is CheckBox Or TypeOf c Is Button Or TypeOf c Is Frame _
              Or TypeOf c Is ListEx Or TypeOf c Is ListView Or TypeOf c Is _
              PictureBox Or TypeOf c Is TextBox Then
               c.BackColor = &H8000000F
            End If
         Next c
      End If
   Else
      'Standard-Farben sind aktiviert, daher wird der Hintergrund grau
      For Each c In Controls
         If TypeOf c Is CheckBox Or TypeOf c Is Button Or TypeOf c Is Frame Or _
           TypeOf c Is ListEx Or TypeOf c Is ListView Or TypeOf c Is PictureBox _
           Or TypeOf c Is TextBox Then
            c.BackColor = &H8000000F
         End If
      Next c
   End If