Option Explicit

Declare Function EnumChildWindows Lib "user32" (ByVal _
    hWndParent As Long, ByVal lpEnumFunc As Long, ByVal _
    lParam As Long) As Long

Declare Function SendMessage Lib "user32" Alias "SendMessageA" _
    (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam _
    As Long, lParam As Any) As Long

Declare Function GetClassName Lib "user32" Alias "GetClassNameA" _
    (ByVal hwnd As Long, ByVal lpClassName As String, ByVal _
    nMaxCount As Long) As Long

Const WM_GETTEXT = &HD

Public Function EnumChildProc(ByVal hwnd As Long, ByVal lParam _
    As Long) As Long
  Dim a As String, b As String, g As String, l As Long

  a = Space$(128)
  l = GetClassName(hwnd, a, 128)
  g = Left(a, l)
  l = SendMessage(hwnd, WM_GETTEXT, 128, ByVal a)

  If g = "msctls_statusbar32" Then _
         Form1.Label1.Caption = Left(a, l)

  EnumChildProc = 1
End Function

Option Explicit

Private Declare Function FindWindow Lib "user32" Alias _
    "FindWindowA" (ByVal lpClassName As String, ByVal _
    lpWindowName As String) As Long

Dim F As Long

Private Sub Form_Load()
  Me.AutoRedraw = True
  Timer1.Interval = 100
End Sub

Private Sub Timer1_Timer()
  F = FindWindow("IEFrame", vbNullString)
  Label2.Caption = Str$(F)
  EnumChildWindows F, AddressOf EnumChildProc, ByVal 0&
End Sub