→→→ListBoxに表示された列をダブルクリックで実行させる

TextBoxとListBoxを貼り付け

TextBoxに検索する文字列を入力

　　↓

指定したフォルダから一致するファイルを検索し一致したらListBoxに表示

　　↓

ListBoxら表示された列をダブルクリックすると実行する

Imports System.IO
Dim Folder As New DirectoryInfo("C:\USER\Documents")

Private Sub TextBox1_TextChanged(...
    ListBox1.Items.Clear()
    If TextBox1.Text.Length = 0 Then
       Return
    End If
    Dim File As FileInfo
    ListBox1.BeginUpdate()
    For Each File In Folder.GetFiles( TextBox1.Text & "*" )
          ListBox1.Items.Add( File.FullName )
    Next
    ListBox1.EndUpdate()
End Sub

Private Sub ListBox_DoubleClick( ....
       On Error Resume Next
       Process.Start( ListBox1.SelectedItem )
End Sub