dim p as new Klasse1
dim Daten as New HashTable
 
p.Var1 = "x"
p.Var2 = "y"
p.Var3 = "z"
Daten.Add("Instanz1", p)
'(1)
 
p = new Klasse1
p.var1 = "4"
Daten.Add("Instanz2", p)
 
p = new Klasse1
p.var3 = "Dideldu"
Daten.Add("Instanz3", p)

Dim p2 As New Klasse1
p2 = p
p = New Klasse1
p = p2   'Zuweisung an p, damit ich immer p ansprechen kann

For Each c In p.GetType.GetFields
       p.GetType.GetField(c.Name).SetValue(c.Name), _
       Daten.Item(Datenzahl-1).GetType.GetField(c.Name))
       'Schau dir das jeweilige Feld des zuletzt gespeicherten Datensatzes an
       'und übertrage den Wert in die aktuelle Instanz
Next