Private Sub cmdDeleteRegSetting_Click()
    
    On Error GoTo ErrorHandler
    
    DeleteSetting "MyApplication"
    
    Exit Sub
ErrorHandler:
    MsgBox Err.Description, , Err.Number
    
    
End Sub

Private Sub cmdSetBackColor_Click()
    
    On Error GoTo ErrorHandler
    
    CommonDialog1.ShowColor
    
    Form1.BackColor = CommonDialog1.Color
    
    SaveSetting "MyApplication", "STARTUP", "BackColor", CommonDialog1.Color
    
    Exit Sub
ErrorHandler:

End Sub

Private Sub Form_Load()

Form1.BackColor = GetSetting("MyApplication", "STARTUP", "BackColor", vbWhite)


End Sub