Private Sub Combo1_Click()
Dim formular As Object '<-- ok ^.^
Dim objekt As Object
 
For Each formular In VB.Forms '<<- toll! warum sacht das denn keiner :P
For Each objekt In formular
If Not TypeOf objekt Is TabStrip Then objekt.BackColor = FARBE ^^
Next objekt
Next formular
End Sub