Thanks, TFormPoint does the job.
Function TransformMesh(mesh,entity)
msurface=GetSurface(mesh,1)
esurface=GetSurface(entity,1)
numverts=CountVertices(msurface)
For i=0 To numverts-1
TFormPoint VertexX(esurface,i),VertexY(esurface,i),VertexZ(esurface,i),entity,0
VertexCoords msurface,i,TFormedX(),TFormedY(),TFormedZ()
TFormNormal VertexNX(esurface,i),VertexNY(esurface,i),VertexNZ(esurface,i),entity,0
VertexNormal msurface,i,TFormedX(),TFormedY(),TFormedZ()
Next
End Function
Function TransformMesh(mesh,entity)
msurface=GetSurface(mesh,1)
esurface=GetSurface(entity,1)
numverts=CountVertices(msurface)
For i=0 To numverts-1
TFormPoint VertexX(esurface,i),VertexY(esurface,i),VertexZ(esurface,i),entity,0
VertexCoords msurface,i,TFormedX(),TFormedY(),TFormedZ()
TFormNormal VertexNX(esurface,i),VertexNY(esurface,i),VertexNZ(esurface,i),entity,0
VertexNormal msurface,i,TFormedX(),TFormedY(),TFormedZ()
Next
End Function