Управление браузером Internet Explorer, запущенным от имени другого пользователя

    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        Dim myShell As Object
        Dim myInternetExplorer As Object
        myShell = CreateObject("Shell.Application")
        For Each myInternetExplorer In myShell.Windows 'Ищем Internet Explorer
            If myInternetExplorer.Name = "Windows Internet Explorer" Then
                Exit For
            End If
        Next myInternetExplorer
        If myInternetExplorer Is Nothing Then 'Выходим, если Internet Explorer не найден
            Exit Sub
        End If
        myInternetExplorer.Document.GetElementByID("agileSelectorDiv").Click    'Ищем на web-странице элемент по ID и кликаем на него
    End Sub

    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        Dim myShell As Object = CreateObject("Shell.Application")
        For Each myInternetExplorer In myShell.Windows 'Ищем Internet Explorer
            If myInternetExplorer.Name.ToString.Contains("Windows Internet Explorer") Then
                myInternetExplorer.Document.GetElementByID("agileSelectorDiv").Click    'Ищем на web-странице элемент по ID и кликаем на него
                 MsgBox("Нашли и кликнули")
                Exit For
            End If
        Next
    End Sub

    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        Dim myShell As Object = CreateObject("Shell.Application")
        For Each myInternetExplorer In myShell.Windows 'Ищем Internet Explorer
            MsgBox(myInternetExplorer.Name.ToString)
            If myInternetExplorer.Name.ToString.Contains("Windows Internet Explorer") Then
                myInternetExplorer.Document.GetElementByID("agileSelectorDiv").Click    'Ищем на web-странице элемент по ID и кликаем на него
                 MsgBox("Нашли и кликнули")
                Exit For
            End If
        Next
    End Sub