module1.bas

enumera windows

Attribute VB_Name = "Module1"
Private Declare Function GetWindowText Lib "user32" Alias "GetWindowTextA" (ByVal hwnd As Long, ByVal lpString As String, ByVal cch As Long) As Long
Private Declare Function IsWindowVisible Lib "user32" (ByVal hwnd As Long) As Long
Public Declare Function SetWindowPos Lib "user32" (ByVal hwnd As Long, ByVal hWndInsertAfter As Long, ByVal x As Long, ByVal y As Long, ByVal cx As Long, ByVal cy As Long, ByVal wFlags As Long) As Long
Public Declare Function CloseWindow Lib "user32" (ByVal hwnd As Long) As Long
Public Declare Function DestroyWindow Lib "user32" (ByVal hwnd As Long) As Long

Public FechadoOrk As Boolean, hwnds As New Collection
Function EnumWin(ByVal hwnd As Long, ByVal lParam As Long) As Boolean
Dim cmd As String * 255
GetWindowText hwnd, cmd, Len(cmd)
If IsWindowVisible(hwnd) And Not Trim(Replace(cmd, Chr(0), "")) = "" Then
hwnds.Add hwnd
Form1.List1.AddItem cmd
End If

EnumWin = True
End Function