Speed up TreeView Contract in Excel VBA form

Question

I\'m trying to optimize the speed of Expanding/Collapsing a Tree view in an Excel form. I\'m using the code below, and while the Expand part is almost instant, the Collapse part