Visual Basic para Aplicaciones - lista de programas en ejecucion

necesito capturar en una lista los programas que se estan ejecutando en cuaquier momento y poder finalizar cualquiera que un escoja desde el visual basic. algo asi como hacerle Kill a cualquier programa en ejecucion.

gracias

MIRA EN LO UNICO QUE PUEDO AYUDARTE ES EN SABER CUALES APLICACIONES ESTAN EN USO:

EN UN MODULO PONES :

Public Declare Function CreateToolhelpSnapshot Lib "Kernel32" Alias "CreateToolhelp32Snapshot" (ByVal lFlags As Long, ByVal lProcessID As Long) As Long
Public Declare Function ProcessFirst Lib "Kernel32" Alias "Process32First" (ByVal hSnapShot As Long, uProcess As PROCESSENTRY32) As Long
Public Declare Function ProcessNext Lib "Kernel32" Alias "Process32Next" (ByVal hSnapShot As Long, uProcess As PROCESSENTRY32) As Long
Public Declare Sub CloseHandle Lib "Kernel32" (ByVal hPass As Long)

Public 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 * 260
End Type

Y EN UN FORMULARIO ESTE CODIGO, TIENES QUE TENER UN LIST BOX O LO QUE QUIERAS UTILIZAR:

Dim hSnapShot As Long
Dim uProceso As PROCESSENTRY32
Dim res As Long
Dim apli As String

hSnapShot = CreateToolhelpSnapshot(2&, 0&)
List1.Clear

If hSnapShot <> 0 Then
uProceso.dwSize = Len(uProceso)
res = ProcessFirst(hSnapShot, uProceso)
Do While res
apli = Left$(uProceso.szExeFile, InStr(uProceso.szExeFile, Chr$(0)) - 1)
Do While InStr(1, apli, "\")
apli = Right$(apli, Len(apli) - InStr(1, apli, "\"))
Loop
List1.AddItem apli
res = P