ctrl+alt+del box ??????

hvordan laver man et program so kan det samme som ctrl+alt+del boxen, der kan lukke eksterne programmer, og se de programmer der køre på computeren ?

jeg har brugt de her koder til at se hvilke programmer der køre, men det giver et fuldstændig uoverskueligt billede af hvilke programmer der køre...

\'----------------------- Module1 -----------------------
Declare Function EnumWindows Lib \"user32\" (ByVal lpEnumFunc As Long, ByVal lParam As Long) As Boolean
Declare Function GetWindowText Lib \"user32\" Alias \"GetWindowTextA\" (ByVal hwnd As Long, ByVal lpString As String, ByVal cch As Long) As Long
Declare Function GetWindowTextLength Lib \"user32\" Alias \"GetWindowTextLengthA\" (ByVal hwnd As Long) As Long


Public Function EnumWindowsProc(ByVal hwnd As Long, ByVal lParam As Long) As Boolean
Dim sSave As String
Dim Ret As Long


Ret = GetWindowTextLength(hwnd)
sSave = Space(Ret)
If sSave <> \"\" Then
GetWindowText hwnd, sSave, Ret + 1
Form1.List1.AddItem sSave \'List1
End If
EnumWindowsProc = True
End Function
\'----------------------- Module1 -----------------------



\'------------------------ Form1 ------------------------
Private Sub Form_Load()
EnumWindows AddressOf EnumWindowsProc, ByVal 0&
End Sub
\'------------------------ Form1 ------------------------

på forhånd tak :)