dim x1 as class1
dim x2 as class1
dim x3 as class1
dim x4 as calss1
usw...
dim xMain as class1
 
 
x1.name="X1-Clone"
x2.name="X2-Clone"
x3.name="X3-Clone"
x4.name="X4-Clone"
xMain.name=MainClone"
 
hier passiert einiges...
 
set xMain = x2
debug.print xMain.name  ' die Name eigenschaft soll erhalten bleiben
                                              ' ist aber jetzt "X2-Clone"

Ohne Mampf, kein Kampf !