Occurs when a SmartItem is collapsed, that is, when its child items are hidden.
Private Sub SmartUI_Collapse(ByRef Item As SmartItem)
SmartUI
BeforeCollapse, SmartItem