Liste viduer

Hej

Jeg sidder og er ved at lave et lille program hvor jeg skal have navnene på alle vinduerne som er nede i process linien.

Det skal ikke tage services, skjulte programmer og dem som er i systray med.

Jeg har brugt findwindow før, men kun hvor jeg kender navnet på programmet. Her kender jeg ikke programmerne, men skal sortere i dem der er.

Jeg tænkte på noget lignende:
dim j as integer
dim k as integer
j = count windows 'ved ikke hvordan
dim i as integer
i=0 '1 hvis den starter med at tælle på en
do while not i = j
  if window = name then
    combo1.additem "name",
    k=k+1
    i=i+1
  elseif
    i=i+1
  end if
loop


Sådan noget lidt som det, nogen der har nogle forslag ?

Mvh
Tubber