Private Sub Alles_grün ()
Dim F As Form
Dim objekt As Objekt
 
  For Each F In Forms
   F.BackColor = &H4000& ' wie gesagt weiss ich nicht, ob das funktioniert
   For Each objekt In F
    objekt.BackColor = &H4000& 
   Next objekt
  Next F
 
End Sub