Как получить список запущенных программ?

' на форме List1 и кнопка
Private Declare Function GetDesktopWindow Lib "User32" () As Integer
Private Declare Function GetWindow Lib "User32" (ByVal hwnd As Long, ByVal wCmd As Long) As Long
Private Declare Function IsWindowVisible Lib "User32" (ByVal hwnd As Long) As Long
Private Declare Function GetWindowText Lib "User32" Alias "GetWindowTextA" (ByVal hwnd As Long, ByVal lpString As String, ByVal cch As Long) As Long
Const GW_HWNDNEXT = 2
Const GW_HWNDFIRST = 0
Const GW_OWNER = 4
Dim Wnd As Long
 
Private Sub Command1_Click()
Dim buff  As String
'Делаем буфер
buff = String(100, Chr$(0))
 
Wnd = GetWindow(Me.hwnd, GW_HWNDFIRST)
 Do While Wnd <> 0
 ' Фильтруем только окна с именами, видимые, не дочерние, не своё
 If (Wnd <> Me.hwnd) And IsWindowVisible(Wnd) And (GetWindow(Wnd, GW_OWNER) = 0) And (GetWindowText(Wnd, buff, Len(buff)) <> 0) Then
 GetWindowText Wnd, buff, Len(buff)
  List1.AddItem buff
 End If
Wnd = GetWindow(Wnd, GW_HWNDNEXT)
    Loop
End Sub

Option Explicit
Private Declare Function CreateToolhelpSnapshot Lib "Kernel32"Alias"CreateToolhelp32Snapshot"  (ByVal lFlags As Long, ByVal lProcessID As Long) As Long
Private Declare Function ProcessFirst Lib"Kernel32" Alias "Process32First"   (ByVal hSnapShot As Long, uProcess As PROCESSENTRY32) As Long
Private Declare Function ProcessNext Lib  "Kernel32" Alias "Process32Next"  (ByVal hSnapShot As Long, uProcess As PROCESSENTRY32) As Long
Private Declare Sub CloseHandle Lib "Kernel32" (ByVal hPass As Long)
Private Const TH32CS_SNAPPROCESS As Long = 2&
Private Const MAX_PATH As Integer = 260
Private Type PROCESSENTRY32
    dwSize As Long
    cntUsage As Long
    th32ProcessID As Long
    th32DefaultHeapID As Long
    th32ModuleID As Long
    cntThreads As Long
    th32ParentProcessID As Long
    pcPriClassBase As Long
    dwFlags As Long
    szExeFile As String * MAX_PATH
End Type
Dim hSnapShot As Long
Dim uProcess As PROCESSENTRY32
Dim r As Long
 
Private Sub Command1_Click()
List1.Clear
hSnapShot = CreateToolhelpSnapshot(TH32CS_SNAPPROCESS, 0&)
If hSnapShot = 0 Then
    Exit Sub
End If
uProcess.dwSize = Len(uProcess)
r = ProcessFirst(hSnapShot, uProcess)
Do While r
    List1.AddItem uProcess.szExeFile
    r = ProcessNext(hSnapShot, uProcess)
Loop
Call CloseHandle(hSnapShot)
End Sub

Dim Process As Object
        For Each Process In GetObject("winmgmts:").ExecQuery("Select * from Win32_Process")
                  Debug.Print Process.Caption
        Next