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