How do I move objects from all layers into selection?

I can select all objects in current layer with the following

                 ActiveLayer.Shapes.All.AddToSelection

but,  how do I loop through all layers and add their shapes to Selection?

Parents
No Data
Reply Children