Private Function findMenuItem(ByVal name As String, ByVal tsic As _
      ToolStripItemCollection) As ToolStripItem
        For Each tsi As ToolStripItem In tsic
            If tsi.Text = name Then
                Return tsi
            End If
        Next
        Return Nothing
    End Function
 
 
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) Handles Button1.Click
 
        ' Von irgendwo her...
        Dim menuItemName As String = "File"
        Dim subMenuItemName As String = "Item1"
        Dim newMenuItemName As String = "New1"
 
        Dim tsi1 As ToolStripMenuItem = findMenuItem(menuItemName, _
          Me.MenuStrip1.Items)
        If tsi1 Is Nothing Then Return
        Dim tsi2 As ToolStripMenuItem = findMenuItem(subMenuItemName, _
          tsi1.DropDownItems)
        If tsi2 Is Nothing Then Return
        Dim tsin As New ToolStripMenuItem(newMenuItemName)
        AddHandler tsin.Click, AddressOf NewMenuItem_Click
        tsi2.DropDownItems.Add(tsin)
 
    End Sub

Those people who think they know everything are a great annoyance to those of us who do - Isaac Asimov