' Obere Ebene
        For Each Item As ToolStripMenuItem In MenuStrip.Items
 
            Item.ForeColor = Main.All.ConfigUser.ColorControlText
 
            ' Verschachtelungs-Ebene 1
            Dim x As ToolStripItemCollection = Item.DropDownItems
 
            For Each subItem As ToolStripItem In Item.DropDownItems
 
                subItem.ForeColor = Main.All.ConfigUser.ColorControlText
 
            Next
 
        Next