Imports System
Imports System.IO
Imports System.Uri
Imports System.IO.File
Imports System.Web
Imports System.Configuration
Imports System.Text
Imports Microsoft.VisualBasic
Imports System.Data
Imports SHDocVw

Public Class Form1

    Dim Br As InternetExplorer
    Dim m As Object


    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

        Timer1.Enabled = True
        Timer1.Interval = 1000

    End Sub

    Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
        '  Try
        Br = GetObject(, "InternetExplorer")
        'Catch
        'End Try
        m = Type.Missing
        For Each ie In New ShellWindows()
            If (ie.LocationURL = "http://www.foo.com") Then
                ie.Navigate("http://www.bar.com", m, m, m, m, m)
            End If
        Next

    End Sub
End Class
<br/>

        Dim IEWindow, IEShell, IEShellWindows, IEApplication As Object

        IEShell = CreateObject("Shell.Application")
        IEShellWindows = IEShell.Windows

        On Error Resume Next
        For Each IEWindow In IEShellWindows
            IEApplication = IEWindow.Application 'get the application object
            Console.WriteLine(IEWindow.document.Title)
            Console.WriteLine(IEWindow.LocationURL)
        Next

        Dim IEWindow, IEShell, IEShellWindows, IEApplication As Object

        IEShell = CreateObject("Shell.Application")
        IEShellWindows = IEShell.Windows

        On Error Resume Next
        For Each IEWindow In IEShellWindows
            IEApplication = IEWindow.Application 'get the application object
            Console.WriteLine(IEWindow.document.Title)
            Console.WriteLine(IEWindow.LocationURL)
        Next