Private Sub Command1_Click()
 
    Dim strString As String
        ' Ist der Key vorhanden, so wird der Value des Keys in die Variable 
        ' strString geschrieben.
        ' Wenn nicht, erhält die Variable den Wert "GibtsGarNicht"
        strString = GetSetting("NameDesProjekts", "Optionen", _
          "Form1.BackColor", "GibtsGarNicht")
 
        If Not strString = "GibtsGarNicht" Then
            DeleteSetting "NameDesProjekts", "Optionen", "Form1.BackColor"
            MsgBox "Key erfolgreich gelöscht", vbInformation, ""
        Else
            MsgBox "Den Key gibt es nicht (mehr)", vbExclamation, ""
        End If
 
End Sub
 
Private Sub Form_Load()
 
    SaveSetting "NameDesProjekts", "Optionen", "Form1.BackColor", _
      Form1.BackColor
 
End Sub

Mit freundlichen Gr??en,
Andy G.