hi David, thank you for so rush answers!
perfect it's works! Crvs_top_surface.count was for me eqw. ubound(Crvs_top_surface) I'm interested in "= Nothing" is it eqw. points=array() in vbscript? or can you please make an example how to use it Dim points As On3dPointArray Dim points As On3dPointArray = Nothing Best! Dima
