Есть ли функция, которая позволяет выделять и отображать строку в текстовом поле при нажатии на кнопку?

Question

Когда я ищу что-то, оно будет выделено в списке. Я хочу, чтобы он автоматически прокручивался вниз и отображал выделенную информацию на экране при нажатии кнопки поиска.

myindex = 0

Set itmx = ListView2.FindItem(Trim(TextBox_Reason.Text), lvwText, lvwPartial)
    If itmx Is Nothing Then
        If TextBox_Reason.Text = "" Then
            MsgBox "Please enter a Reason", vbCritical
            Exit Sub
        Else
        result = MsgBox("Reason not found !, Add new Reason ", vbYesNo, "Reason Status")
        If result = vbYes Then
            CommandButton_Add_Click
        End If
        Exit Sub
        End If
    Else
        ListView2.ListItems(itmx.Index).Selected = True
        ListView2.SetFocus
    End If

myindex = 0


Set itmx = ListView2.FindItem(Trim(TextBox_Reason.Text), lvwText, lvwPartial)
    If itmx Is Nothing Then
        If TextBox_Reason.Text = "" Then
            MsgBox "Please enter a Reason", vbCritical
            Exit Sub
        Else
        result = MsgBox("Reason not found !, Add new Reason ", vbYesNo, "Reason Status")
        If result = vbYes Then
            CommandButton_Add_Click
        End If
        Exit Sub
        End If
    Else
        ListView2.ListItems(itmx.Index).Selected = True
        ListView2.SetFocus
    End If