#
Private Sub doSomething()
#
        Dim innerHTML As String = GetInnerHTML()
#
        MessageBox.Show(innerHTML)
#
    End Sub
#
#
    Private Delegate Function GetInnerHTMLCallBack() As String
#
    Private Function GetInnerHTML() As String
#
        If WebBrowser1.InvokeRequired Then
#
            Return CStr(WebBrowser1.Invoke(New GetInnerHTMLCallBack(AddressOf _
              GetInnerHTML)))
#
        Else
#
            Return WebBrowser1.Document.Body.InnerHtml
#
        End If
#
    End Function

Dim ElementListe As HtmlElementCollection
 
 
            ElementListe = WebBrowser1.Document.All
 
            ' WebBrowser1.Document.All.Item("submit").InvokeMember("click")
 
 
 
            For Each Element As HtmlElement In ElementListe
                If InStr(Element.GetAttribute("href"), "http://test.de/") <> _
                  0 Then
                    Element.SetAttribute("target", "")
                    Element.InvokeMember("click")
                End If
            Next

Gru? Mr.T


>>>Visit:???