Const SWP_HIDEWINDOW = &H80
Const SWP_SHOWWINDOW = &H40
Const GW_CHILD =  5 
Const GW_HWNDNEXT =  2 
Const GW_HWNDFIRST =  0 
Private Declare Function GetWindow Lib  "user32"  (ByVal hwnd As Long, ByVal wCmd As Long) As Long
Private Declare Function GetForegroundWindow Lib  "user32"  () 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

Dim tWnd As Long, bWnd As Long, sSave As String *  250 

Public Sub FormLoad111()
    Dim MyStr As String


    bWnd = GetWindow(GetForegroundWindow, GW_HWNDFIRST)
    Do
      bWnd = GetWindow(bWnd, GW_HWNDNEXT)
      MyStr = String(GetWindowTextLength(bWnd) +  1 , Chr$( 0 ))
      GetWindowText bWnd, MyStr, Len(MyStr)
      
      Debug.Print MyStr
    Loop Until bWnd =  0 
    
End Sub