How to group all components in featuremanager

Hello everyone, 

I would like to know how in VBA we can group the creation tree in FeatureManager to its minimum.

Thanks in advance