' im Modul
Public nBackColor As Long

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

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

Private Sub Form_Load()
  Me.BackColor = nBackColor
End Sub

...
      nBackColor = .Color
      SetBackColor
      SaveSetting "MyApp", "Colos", "BackColor", CStr(nBackColor)
...

nBackColor = Val(GetSetting("MyApp", "Colors", "BackColor", CStr(vbButtonFave))
SetBackColor

_________________________
Professionelle Entwicklerkomponenten
www.tools4vb.de