Help➡️ Selecting items for a listview D: (search items)

Private Sub Button1_Click_1(sender As Object, e As EventArgs) Handles Button1.Click
        ProcessList.MultiSelect = False
        ProcessList.FullRowSelect = True


        Dim checkInt As Integer = FindItem(ProcessList, TextBox1.Text)
        If checkInt <> -1 Then
            ProcessList.Items(checkInt).Selected = True

            MsgBox("found")
            ProcessList.Focus()

        Else
            Label1.Text = "Search string not found"
        End If

    End Sub