DIM CMICWMI AS New System.Management.ManagementObjectSearcher ("SELECT * WIN32_PROCESS")
For Each Cmicwmiobj As ManagementObject In Cmicwmi.get
Listbox1.items.Add ("Service:" CMICWMIOBJ ("Name") "FilePath:" CMICWMIOBJ ("ExecutablePath")))
NEXT
