Private Sub WebBrowser1_DocumentCompleted(sender As System.Object, e As  _
      System.Windows.Forms.WebBrowserDocumentCompletedEventArgs) Handles _
      WebBrowser1.DocumentCompleted
 
        EntferneDivElemente(WebBrowser1.Document)
 
    End Sub
 
    Private Sub EntferneDivElemente(doc As HtmlDocument)
        ' Die zu löschenden IDs
        Dim idsToDelete As String() = {"advert", "menu", "top"}
 
        For i As Integer = 0 To idsToDelete.Length - 1
            'Element raussuchen
            Dim el As HtmlElement = doc.GetElementById(idsToDelete(i))
            If el IsNot Nothing Then 'Element existiert
                ' löschen
                el.OuterHtml = String.Empty
            End If
        Next
 
    End Sub