ユーザーフォームのListBox未選択はIndex -1のはずが0?!!

Question

環境

• Windows10 x64
• Microsoft 365(Office 2019 ダウンロード)

問題

ユーザーフォーム上のListBox、未選択の際のIndexに0が返ってきます

下記のコードの通りリストボックス内で選択状態のものを配列にしてAutoFilterに使用しています。

    With ListBox1
        If .ListIndex <> -1 Then
            For i = 0 To .ListCount - 1
                If .Selected(i) = True Then
                    key1_string = key1_string & .List(i) & vbCrLf
                End If
            Next i
            key1 = Split(key1_string, vbCrLf)
            ws.ListObjects(1).Range.AutoFilter 4, key1, xlFilterValues
        End If
    End With

未選択の際にフィルタ―部分でエラーが発生するので、「いやいやIfでここ回避してるやん」と思って、
With ListBox1のすぐ後にMsgBox(/Debug.Print).ListIndexを確認すると0が返っていました。
リストのトップアイテムを選択しても同じく0です。

これは何！？

ちなみに毎検索、Initializeの度に.ListBoxをクリアし、可視セルの中の選択肢(ユニークな値)でListBoxを埋めています。
この返り値はおかしくないでしょうか？？何かやり方が悪いのでしょうか？プロパティの設定か何かでしょうか？

Answer 1

ListIndex プロパティ | Microsoft Docs

リスト ボックスの各行の Selected の値は、その行が選択されている場合は True、選択されていない場合は False になります。 複数選択が可能な ListBox の場合、ListIndex は、行が現在選択されているかどうかに関係なく、フォーカスがある行のインデックスを返します。

とかいてあります

Comments

[退会済みユーザー]

うわーなるほど・・・『できる大事典 Excel VBA 2016/2013/2010/2007対応』を持っているのですが、よく見たらそちらにもちゃんと書いてある基礎的な内容なんですね。
ありがとうございます。