リストボックスを全選択･全解除するときの処理時間が違う理由

Question

4000項目くらいあるリストボックスに全選択と全解除のボタンをつけました。
全選択状態からの全解除は11秒ほどかかります。

Private Sub CommandButton16_Click()
    Dim i As Long
    For i = 0 To ListBox3.ListCount - 1
        If ListBox3.Selected(i) = True Then
            ListBox3.Selected(i) = False
        End If
    Next i
End Sub

全選択は1秒ほどで終了するのに、解除ではなぜこれほど時間がかかるか理由を知りたいのです。
ListBox3の構造に問題があるのでしょうか。
いろいろ試したのですが、理由がわからず、いまは次のようなコードで凌いでいます。
（ListBox3がListBox2のチェンジイベントで作成されるようにしています。）

Private Sub CommandButton16_Click()
    ListBox3.Clear
    Call ListBox2_Change
End Subコード

試した内容を追加します。
新しいブックに以下のようにリストボックスを作成し、kの値をいろいろ変えて試してみました。

k=1000のとき、全選択、全解除ともに1秒程度
k=3000のとき、全選択、全解除ともに3秒程度
k=4000のとき、全選択、全解除ともに5秒程度
k=5000のとき、全選択、全解除ともに8秒程度

業務用に実際に作成したブックでの処理時間
4000件で全選択1秒、全解除10秒以上というのをどう評価すればいいのか
わかりません。

Private Sub CommandButton1_Click()

    Dim i As Long
    Dim k As Long
    Dim arr As Variant
    
    ListBox1.Clear

    k = 5000

    ReDim arr(k - 1, 3)
    For i = 0 To k - 1
        arr(i, 0) = i + 1
        arr(i, 1) = i + 1
        arr(i, 2) = i + 1
        arr(i, 3) = i + 1
    Next i

    ListBox1.List = arr

    With ListBox1
        .MultiSelect = fmMultiSelectMulti
        .ListStyle = fmListStyleOption
    End With


End Sub

Private Sub CommandButton2_Click()
    Dim i As Long
    For i = 0 To ListBox1.ListCount - 1
        ListBox1.Selected(i) = True
    Next i
End Sub

Private Sub CommandButton3_Click()
    Dim i As Long
　　For i = 0 To ListBox1.ListCount - 1
        ListBox1.Selected(i) = False
    Next i
End Sub

Answer 1

なぜ解除に時間がかかるのかはわかりませんでしたが、試したことを書き残しておきます。

Private Sub CommandButton16_Click()
    ListBox3.MultiSelect = fmMultiSelectSingle
    ListBox3.MultiSelect = fmMultiSelectMulti
End Sub

Comments

[First_Rabbit]

ご回答ありがとうございます。
ご教示いただいた方法だと、確かに一瞬で全解除出来そうです。
この方法を採用しようと思います。実務的にこれ以上この問題に時間を割くのはやめますが、
処理時間の謎は、頭がもやもやするので、解決済みにせず、このまま質問を継続させていただきます。
ありがとうございました。