ツールストリップに動的にボタンを貼り付けたいと思い、下記のように
AddHandlerに渡すメニューイベントを引数にして関数を呼び出したいのですが
(1)でメニューイベントとして解釈させる方法がわかりません。
DirectCastしようにもXXXXXの部分がわかりません。
ご教授の程よろしくお願いいたします。


Public Sub SetButton(ByVal S As String, MenuEbvent As Object)
Dim item As New ToolStripButton

item.Text = S
AddHandler item.Click, AddressOf DirectCast(MenuEvent, XXXXX) ==>(1)
ToolStrip.Items.Add(item)

End Sub


SetButton("Menu1", ToolStripMenuItem1_Click)
SetButton("Menu2", ToolStripMenuItem2_Click)