Private Sub Form1_Load(sender As System.Object, e As System.EventArgs) Handles MyBase.Load Dim menu As New MenuStrip() For i As Integer = 0 To 2 Dim item As New ToolStripMenuItem(String.Format("Mon menu {0}", i.ToString())) ' Modify item here item.Name = "myMenuItem" item.BackColor = Color.AliceBlue For j As Integer = 0 To 3 Dim innerItem As New ToolStripMenuItem(String.Format("Mon Sous-Menu Item {0}", j.ToString())) ' Modify inner item here innerItem.Tag = 1234 innerItem.BackColor = Color.LimeGreen item.DropDownItems.Add(innerItem) Next menu.Items.Add(item) Next Me.Controls.Add(menu) End Sub