My.Settings.Alles

  Dim S as New Sett
  Dim i as Integer
  Dim a as String
 
  'Einstellungen Objekte definieren
  S.Add(Me)              
  S.Add(Button1)  
  S.Add(RichTextBox1) 
 
 
  'Einstellungen Objekte laden
  S.Load()                 'lädt Me, Button1, RichTextBox1
 
  'Einstellungen Variablen laden
  S.Load("i",i)            'lädt i
  S.Load("a",a,"default")  'lädt a, 
                           'falls keine Setting gespeichert, dann a="default"            
 
  ...
 
  'Einstellungen Objekte speichern
  S.Save()                 'speichert Me, Button1, RichTextBox1
 
  'Einstellungen Variablen speichern
  S.Save("i",i)            'speichert i
  S.Save("a",a)            'speichert a