Public Class Form1
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) Handles MyBase.Load
        ' Neuen Eintrag definieren
        Dim m1 As New ToolStripMenuItem With {.Name = "menuitem1", .Text = _
          "MenüItem 1"}
 
        ' zum Menü hinzufügen
        MenuStrip1.Items.Add(m1)
 
        ' Click-Event zuweisen
        AddHandler m1.Click, AddressOf Me.MenueClick
 
        ' ...
 
    End Sub
 
    Private Sub MenueClick(ByVal sender As Object, ByVal e As System.EventArgs)
        ' Aktion ausführen
        MsgBox(CType(sender, ToolStripMenuItem).Name & " wurde geklickt.")
    End Sub
 
End Class