Trying to collapse the entire list and not selected item.

With Me.TV
        .SelectedItem.Expanded = Not .SelectedItem.Expanded
    End With