CurHWnd = GetWindow([u]hwnd, GW_HWNDFIRST)
  Do While CurHWnd <> 0
    ' Klassennamen ermitteln
    sClassName = String$(256, " ")
    lRetVal = GetClassName(CurHWnd, sClassName, 255)
    sClassName = Left$(sClassName, InStr(sClassName, _
      Chr$(0)) - 1)
 
    If sClassName = "IEFrame" Then
      ' Explorer-Fenster gefunden - jetzt schließen
      lRetVal = SendMessage(CurHWnd, WM_SYSCOMMAND, _
        SC_CLOSE, LNULL)
    End If
 
    ' Handle des nächsten Fensters
    ' 0, wenn kein weiteres Fenster vorhanden
    CurHWnd = GetWindow(CurHWnd, GW_HWNDNEXT)
  Loop
End Sub

Felder mit * m?ssen korrekt ausgef?llt werden