Public Sub AssignObject(oTarget as Class1, oSource as Class1)
Dim S as String
 
S = oTarget.Name
Set oTarget = oSource
oTarget.Name = S
End Sub

AssignObject xMain, x2

Gru?,
Nukeduke

if (youAreHappyAndYouKnowIt) {
???ClapYourHands();
}