Class A
 
  Dim i as Integer = 123
 
  Dim S as New Sett
  S.List.Add(Me)       'Übergabe Form "Me"
  S.List.Add(Button1)  'Übergabe Button "Button1"
  S.List.Add(i)        'nur Übergabe Wert, nicht Übergabe Variable "i"
 
 
  'Einstellungen laden
  S.Load()
 
  ...
 
  'Einstellungen speichern
  S.Save()
 
End Class
 
 
 
Class Sett
  Dim List as New List(of Object)
 
  Sub Load()
    For Each o In List
      Load2(o)
    Next
  End Sub
 
  Sub Load2(F as Form)
    F.Text=...
    F.Location = ...
    F. Height ...
  End Sub
 
  Sub Load2(B as Button)
    B.Text=...
    B.Color = ...
  End Sub
 
  Sub Load2(i as Integer)
   i=...
  End Sub
 
End Class

 Class Sett
  Dim List as New List(of Object)
  Dim Dict as new Dictionary(of String,String) 
 
  Sub Load()
    For Each o In List
      Load2(o)
    Next
  End Sub
 
  Sub Load2(F as Form)   
    Dim Settings as string = Dict(F.Name)   
    F.Text=...
    F.Location = ...
    F. Height ...
  End Sub
 
  Sub Load2(B as Button)
    Dim Settings as string = Dict(B.Name)
    B.Text=...
    B.Color = ...
  End Sub
 
  Sub Load2(i as Integer)
    Dim Settings as string = Dict(i.Name)  'Geht nicht
    i=...
  End Sub
 
End Class

EALA FREYA FRESENA

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