Snippet Library

Option Explicit 

Private Declare Function GetWindow Lib "user32" _ 
(ByVal hwnd As Long, ByVal wCmd As Long) As Long 
Private Declare Function GetParent Lib "user32" _ 
(ByVal hwnd As Long) As Long 
' 
Private Declare Function GetWindowTextLength Lib _ 
"user32" Alias "GetWindowTextLengthA" (ByVal hwnd As Long) As Long 

Private Declare Function GetWindowText Lib "user32" _ 
Alias "GetWindowTextA" (ByVal hwnd As Long, ByVal _ 
lpString As String, ByVal cch As Long) As Long 

Const GW_HWNDFIRST = 0 
Const GW_HWNDNEXT = 2 

Private Sub LoadTaskList(frm As Form) 
Dim CurrWnd As Long 
Dim Length As Long 
Dim TaskName As String 
Dim Parent As Long 

frm.List1.Clear 
CurrWnd = GetWindow(frm.hwnd, GW_HWNDFIRST) 

Do While CurrWnd <> 0 
Parent = GetParent(CurrWnd) 
Length = GetWindowTextLength(CurrWnd) 
TaskName = Space$(Length + 1) 
Length = GetWindowText(CurrWnd, TaskName, Length + 1) 
TaskName = Left$(TaskName, Len(TaskName) - 1) 

If Length > 0 Then 
If TaskName <> frm.Caption Then 
frm.List1.AddItem TaskName 
End If 
End If 

CurrWnd = GetWindow(CurrWnd, GW_HWNDNEXT) 
DoEvents 
Loop 

End Sub 

Private Sub Command1_Click() 
Call LoadTaskList(Me) 
End Sub 
;