Dim cmicWmi As New System.Management.ManagementObjectSearcher("SELECT * FROM Win32_Process")
For Each cmicWmiObj As ManagementObject In cmicWmi.Get
ListBox1.Items.Add("Service: " + cmicWmiObj("Name") + " FilePath: " + cmicWmiObj("ExecutablePath"))
Next