Private Declare Function GetDesktopWindow Lib "user32.dll" () As Long
Private Declare Function GetWindowLong Lib "user32.dll" Alias "GetWindowLongA" (ByVal hwnd As Long, ByVal nIndex As Long) As Long
Private Const WS_OVERLAPPEDWINDOW = (WS_OVERLAPPED Or WS_CAPTION Or WS_SYSMENU Or WS_THICKFRAME Or WS_MINIMIZEBOX Or WS_MAXIMIZEBOX)

Public Function EnumWindowsProc(ByVal hwnd As Long, ByVal lParam As Long) As Boolean
Dim sSave As String 
Dim bb As Boolean
Dim retval As Long 
dww = GetDesktopWindow

Dim ind As Long

pp = GetWindowLong(hwnd, - 16 )
Form1.Caption = pp
'здесь надо както сравнить
If pp <> WS_OVERLAPPEDWINDOW Then bb = True

If hwnd = dww Then bb = True
If hwnd = Form1.hwnd Then bb = True
If hwnd =  0  Then bb = True



If bb = False Then
' здесь работает только по нужным формам
End If

EnumWindowsProc = True
End Function