Private Sub frmCNC_Load(sender As System.Object, e As System.EventArgs) Handles _
  MyBase.Load
        Dim menuItemName As String = "Datei"
        Dim subMenuItemName As String = "Zuletzt geöffnete Dateien"
        Dim newMenuItemName As String = "Neue Datei"
 
        Dim tsi1 As ToolStripMenuItem = findMenuItem(menuItemName, Me.mnu.Items)
        If tsi1 Is Nothing Then Return
        Dim tsi2 As ToolStripMenuItem = findMenuItem(subMenuItemName, _
          Me.mnuFile.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
 
Private Function findMenuItem(ByVal name As String, ByVal tsic As _
  ToolStripItemCollection) As ToolStripMenuItem
        For Each tsi As ToolStripMenuItem In tsic
            If tsi.Text = name Then
                Return CType(tsi, ToolStripMenuItem)
            End If
        Next
        Return Nothing
End Function

_______________________________________________________________
Jeder Mensch ist anders. Darum nimm jeden Menschen so wie er ist.