Move a list VB

Hei, how can i move a list in this case?
iam having these surfaces (Below)

Code is

Plane is like that

Results show like this

Why it is not showing like this

Iam doubting that the problem in the list, for example when we move them, they modify the existing list, even though i copied the list to a new list before hand, but still it modifies the new list get modified according to the original.

I would appreciate a lot a help