Malice #1 For My.NewType = Each NewType(provided you know that My\Mesh is the handle for meses etc) For My.NewType = Each NewType If My\Mesh>0 FreeEntity My\Mesh EndIf Delete My Next