Подскажите как работать с динамически созданными менюшками.
Я на форме создаю где-то 7 штук как мне создать событие клик для них.
Может есть у кого линки по этой теме по подробней.

Никак не могу догнать как все же создать события Click для каждого динамически созданного меню. Дело в том что помимо созданных динамически есть еще созданные в ручную.

Этот метод создает эти самые меню
Private Sub MenuProiz()
Dim pr As PrZap.PrZap
Dim iCount As Integer

Try
pr = New PrZap.PrZap(BuildCn)

iCount = pr.MCount

If iCount > -1 Then
Dim i As Integer
For i = 0 To iCount - 1
Me.MenuItem2.MenuItems.Add(pr.ArMenu(i))’ вот здесь создаются менюшеки их сейчас 7 , а будет еще больше.

Next
End If
Catch ex As Exception
MsgBox(ex.Message)
Finally
pr = Nothing

End Try
End Sub

А это пытался изобразить это самое событие но никак не получается

Есть ли у кого описание этих вещей я имею ввиду ссылки буду очень признателен


Private Sub ClickMenu(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MenuItem4.Click
Dim c As System.Windows.Forms.MenuItem
Dim pz As New PrZap.PrZap(BuildCn)
Dim i As Integer
Dim s As String

For Each c In Me.MainMenu1.MenuItems
s =c.GetType.Name
If s = « MenuItems” Then
AddHandler c.MenuItems(i).Click, AddressOf CliMenu


End If
i += 1

Next
pz = Nothing

End Sub

Никак не могу догнать как все же создать события Click для каждого динамически созданного меню. Дело в том что помимо созданных динамически есть еще созданные в ручную.

Этот метод создает эти самые меню
Private Sub MenuProiz()
Dim pr As PrZap.PrZap
Dim iCount As Integer

Try
pr = New PrZap.PrZap(BuildCn)

iCount = pr.MCount

If iCount > -1 Then
Dim i As Integer
For i = 0 To iCount - 1
Me.MenuItem2.MenuItems.Add(pr.ArMenu(i))’ вот здесь создаются менюшеки их сейчас 7 , а будет еще больше.

Next
End If
Catch ex As Exception
MsgBox(ex.Message)
Finally
pr = Nothing

End Try
End Sub

А это пытался изобразить это самое событие но никак не получается

Есть ли у кого описание этих вещей я имею ввиду ссылки буду очень признателен


Private Sub ClickMenu(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MenuItem4.Click
Dim c As System.Windows.Forms.MenuItem
Dim pz As New PrZap.PrZap(BuildCn)
Dim i As Integer
Dim s As String

For Each c In Me.MainMenu1.MenuItems
s =c.GetType.Name
If s = « MenuItems” Then
AddHandler c.MenuItems(i).Click, AddressOf CliMenu


End If
i += 1

Next
pz = Nothing

End Sub