_________________________
Professionelle Entwicklerkomponenten
www.tools4vb.de

_________________________
Professionelle Entwicklerkomponenten
www.tools4vb.de

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

Private Sub FavoritenToolStripMenuItem_DropDownItemClicked( _
  ByVal sender As Object, _
  ByVal e As System.Windows.Forms.ToolStripItemClickedEventArgs) _
  Handles FavoritenToolStripMenuItem.DropDownItemClicked
 
  MsgBox(e.ClickedItem.Text)
End Sub

_________________________
Professionelle Entwicklerkomponenten
www.tools4vb.de