こんなこともあったなぁ。

変数で宣言するには？

リテラルとコードの区別がついてない感じ。

･･･なつかしいなぁ♪がんばれ〜☆

文字列を使いたいか〜！！

Public Class Form1
    Private menuItems As New Dictionary(Of String, ToolStripMenuItem)
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        For i = 0 To 2
            Dim item As New ToolStripMenuItem("項目" & i.ToString, Nothing, New System.EventHandler(AddressOf Me.MenuItemClicked), "ToolStripMenuItem" & i.ToString)

            menuItems.Add(item.Name, item)
        Next
        For i As Integer = 0 To menuItems.Count - 1
            MessageBox.Show(Me.menuItems("ToolStripMenuItem" & i.ToString).Text)
        Next
    End Sub
    Private Sub MenuItemClicked(ByVal sender As System.Object, ByVal e As System.EventArgs)
        Dim name As String = DirectCast(sender, ToolStripMenuItem).Name
        Dim clickedItem As ToolStripMenuItem = Me.menuItems(name)
    End Sub
End Class

んでもってこんなのも。
NamedControlArray ジェネリック クラス