Как быстро перебрать окна по Классу - VB

Формулировка задачи:

Мне надо каждые 30 секунд проверять кол-во окон определённого Класса. Ищу так:

                    Листинг программы
                
 
                        
                          
                    
Public Sub ГЏГ®ГЁГ±ГЄГ‘ГІГ®Г«Г®Гў1()
Dim hwnd& 
hwnd = GetWindow(GetDesktopWindow(), GW_CHILD)
   Do:
    lpClassName = Space(256): retval1 = GetClassName(hwnd, lpClassName, 256):
      If Left$(lpClassName, retval1) = KlaSto Then
         SpiSto(i) = hwnd: KolSto = KolSto + 1:
      End If
    hwnd = GetWindow(hwnd, GW_HWNDNEXT):
   Loop While hwnd <> 0:
End Sub

Но мне не нравится постоянная канитель с определением Класса КАЖДОГО окна Ведь есть простая АПИ для поиска по классу:

                    Листинг программы
                
hwnd = FindWindow(KlaSto, vbNullString)

Но ОНА "останавливается" сразу после нахождения первого окна Чего я только не пробовал, но так и не "заставил" ЕЁ перебрать все окна Если такое возможно, то подскажите как, плз !!

Решение задачи: «Как быстро перебрать окна по Классу»

Листинг программы

FindWindowEx