Dim objWMIService, objProcess, colProcess
Dim strComputer
Dim shi As SHFILEINFO

List1.Clear
Set objWMIService = GetObject("winmgmts:{impersonationLevel=impersonate}!\\.\root\cimv2")

Set colProcess = objWMIService.ExecQuery("Select * from Win32_Process")
For Each objProcess In colProcess
    For i =  1  To McProc.Button_Count
    If objProcess.Name = McProc.GetButtonValue(i, BTN_Caption) & ".exe" Then
        List1.AddItem McProc.GetButtonValue(i, BTN_Caption)
        End If
    Next
Next