Dim P As POINTAPI
    Dim hWnd As Long
    Dim lLength As Long
    Dim sWindowText As String * 255
    GetCursorPos P
    hWnd = GetTopWindow(WindowFromPoint(P.x, P.y))
    lLength = SendMessage(hWnd, WM_GETTEXT, _
      Len(sWindowText) + 1, ByVal sWindowText)
    If InStr(1, Left(sWindowText, lLength), "Microsoft Internet") > 0 Then
        CloseWindow hWnd 
    Else
        SendMessage hWnd, WM_CLOSE, ByVal 0&, ByVal 0&
    End If