Private Declare Function GetClassName Lib "user32" Alias "GetClassNameA" (ByVal _
  hwnd As Long, ByVal lpClassName As String, ByVal nMaxCount As Long) As Long
Private Declare Function GetForegroundWindow Lib "user32" () As Long
 
Private Sub Timer1_Timer()
    Dim classname As String
    fgw = GetForegroundWindow()
    classname = Space(256)
    nochars = GetClassName(fgw, classname, 256)
    classname = Left(classname, nochars)
    If classname = "IEFrame" Then
        MsgBox "IE Handle: " & fgw
    End If
End Sub

mfg
brave@heart

...bis zur unendlichkeit und noch viel weiter...