Как восстановить приложение из taskbar зная только имя exe файла? - VB

<font color="blue">Dim</font> objWMIService, objProcess, colProcess
<font color="blue">Dim</font> strComputer
<font color="blue">Dim</font> shi <font color="blue">As</font> SHFILEINFO

List1.Clear
<font color="blue">Set</font> objWMIService = GetObject(<font color="teal">"winmgmts:{impersonationLevel=impersonate}!\\.\root\cimv2"</font>)

<font color="blue">Set</font> colProcess = objWMIService.ExecQuery(<font color="teal">"Select * from Win32_Process"</font>)
<font color="blue">For</font> <font color="blue">Each</font> objProcess <font color="blue">In</font> colProcess
    <font color="blue">For</font> i = <font color="darkblue"><b>1</b></font> <font color="blue">To</font> McProc.Button_Count
    <font color="blue">If</font> objProcess.<font color="blue">Name</font> = McProc.GetButtonValue(i, BTN_Caption) & <font color="teal">".exe"</font> <font color="blue">Then</font>
        List1.AddItem McProc.GetButtonValue(i, BTN_Caption)
        <font color="blue">End</font> <font color="blue">If</font>
    <font color="blue">Next</font>
<font color="blue">Next</font>