Private Sub ButtonSpecAny2_Click_1(ByVal sender As System.Object, ByVal e As _
  System.EventArgs) Handles ButtonSpecAny2.Click
        Dim WB As CustomBrowser = Me.TdhTabCtl1.SelectedTab.Tag
        FavoritenToolStripMenuItem.DropDownItems.Add(WB.Document.Url.ToString) _
          '<Hier steht "onClick as Systen.Event.Handler", doch ich weiss nicht 
        ' wie man das programmieren muss)
 
    End Sub