Private Delegate Function GetInnerHTMLCallBack()
 
    Private Function GetInnerHTML()
 
        If browserds.InvokeRequired Then
 
            Me.Invoke(New GetInnerHTMLCallBack(AddressOf GetInnerHTML))
        Else
 
            Dim ElementListe As HtmlElementCollection
 
            ElementListe = browserds.Document.All
 
            For Each Element As HtmlElement In ElementListe
                If InStr(Element.GetAttribute("href"), "test.de") <> 0 Then
                    Element.SetAttribute("target", "")
                    Element.InvokeMember("click")
                End If
            Next
        End If
 
    End Function

Gru? Mr.T


>>>Visit:???