retrieving HWNDs of all running programs

Is there anyone who knows how to read the caption and/or HWND of all running programs?

Idea:
For i = 1 to AllRunningProgramsInWindows
list1.additem RunningProgram(i).Caption
list2.additem RunningProgram(i).Hwnd
Next i

Do you get the idea?

When you press Ctrl+Alt+Delete Windows shows a list of all the programs running. I want to do the same! Please help me!

Check out the Code Snippet I've posted for the similar question.