Проблема с Listbox findstring ? почему результат фокусируется на дне ?

---

Привет. Каждый. прежде всего, извините за мой плохой английский. надеюсь, я смогу объяснить вам, что я хочу сделать.
Продвинутая Благодарность...

Я перечислил все шрифты в Listbox.
Затем я пытаюсь найти с помощью TextBox1_TextChanged

Когда текстовое поле изменило фокус результата в нижней части списка.

Как я могу показать найденный результат в верхней строке списка ?

Что я уже пробовал:

Private Sub Form2_Load(sender As Object, e As EventArgs) Handles MyBase.Load

        Dim fonts As InstalledFontCollection = New InstalledFontCollection()
        Try
            For Each FNT As FontFamily In fonts.Families
                ListBox1.Items.Add(FNT.Name)
            Next FNT
        Catch

        End Try
    End Sub

Private Sub TextBox1_TextChanged(sender As Object, e As EventArgs) Handles TextBox1.TextChanged
        If TextBox1.Text = "" Then
            ListBox1.SelectedIndex = 0
        End If
        
        ListBox1.SelectedIndex = ListBox1.FindString(TextBox1.Text)
    End Sub

---