Change basis with mesh problem

Dim meshList As New List(Of Mesh)   

Dim planeList As New List(Of Plane)

    Dim plane1 As New Plane(ap, bp, cp)   

planeList.Add(plane1)
    Dim plane2 As New Plane(ap, cp, dp)   

planeList.Add(plane2)
    Dim plane3 As New Plane(ap, dp, ep)   

planeList.Add(plane3)
    Dim plane4 As New Plane(ap, ep, bp)   

planeList.Add(plane4)
    Dim plane5 As New Plane(fp, cp, bp)   

planeList.Add(plane5)
    Dim plane6 As New Plane(fp, dp, cp)   

planeList.Add(plane6)
    Dim plane7 As New Plane(fp, ep, dp)   

planeList.Add(plane7)
    Dim plane8 As New Plane(fp, bp, ep)   

planeList.Add(plane8)

For i As Integer = 0 To planeList.Count - 1 Step 1     

Dim transf As New transform()     

  transf = transform.ChangeBasis(planeList.item(0), planeList.item(i))     

Dim newmesh As New mesh     

newmesh = oldMesh

  newmesh.Transform(transf)     

meshList.Add(newmesh)   

Next

================================

So why it doesnt want to work ?

I obtain 8 meshes all in the same place as mesh based on plane1

rhino4, grasshopper 0.8.0050