Public nBackColor As Long
 
Public Sub SetBackColor()
  Dim oForm As Form
  For Each oForm In VB.Forms
    oForm.BackColor = nBackColor
 Next
End Sub

Private Sub Command4_Click()
 
  On Error Resume Next
  With CommonDialog1
    .CancelError = True
    .ShowColor
    If Err = 0 Then
      nBackColor = .Color
      SetBackColor
      SaveSetting "Projekt1", "Colos", "BackColor", CStr(nBackColor)
      End If
  End With
 
End Sub
 
Private Sub Command5_Click()
Form2.Show
End Sub
 
Private Sub Form_Load()
nBackColor = Val(GetSetting("Projekt1", "Colors", "BackColor", CStr( _
  vbButtonFave)))
SetBackColor
End Sub

Zitat:

Stimmt Du musst Dir den Farbwert einfach nur "merken" - am besten in einer globalen Variable in einem Modul: ' im Modul Public nBackColor As Long Dann änderst Du den Code wie folgt ab: Private Sub Command4_Click() On Error Resume Next With CommonDialog1 .CancelError = True .ShowColor If Err = 0 Then nBackColor = .Color SetBackColor End If End With End Sub Die "SetBackColor"-Prozedur setzt Du ebenfalls in ein Modul mit folgendem Code: Public Sub SetBackColor() Dim oForm As Form For Each oForm In VB.Forms oForm.BackColor = nBackColor Next End Sub Jetzt brauchst Du nur noch im Form_Load Ereignis der einzelnen Formen die BackColor-Eigenschaft wie folgt zuzuweisen: Private Sub Form_Load() Me.BackColor = nBackColor End Sub Ach ja... Du wolltest das Ganze auch noch speichern Also noch schnell folgenden Code einfügen (dort, wo die Farbauswahl stattfindet): ... nBackColor = .Color SetBackColor SaveSetting "MyApp", "Colos", "BackColor", CStr(nBackColor) ... Upps... natürlich sollte beim nächsten Start der Anwendung die zuletzt eingestellte Hintergrundfarbe wieder vorgegebenw werden In der StartForm Deines Projekts (oder in der Sub Main, falls so festgelegt) folgenden Code einfügen: nBackColor = Val(GetSetting("MyApp", "Colors", "BackColor", CStr(vbButtonFave)) SetBackColor Sodala... das war's dann auch schon