Option Strict On
Imports System.Windows.Forms
Imports System.IO
Imports System.Collections.Generic
 
Public Class Form1
 
    Private Sub BrowserForm_Load(sender As System.Object, e As _
      System.EventArgs) Handles MyBase.Load
        ' Webseite aufrufen
        WebBrowser1.Navigate("http://--die-url--.de")
    End Sub
 
    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
End Class