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