Comments by Member 11410248 (Top 4 by date)

It was wrong one..

sorry I put the code again..

1.

Public Class Form1

Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
LoopMenu(MainMenu1)
End Sub

Private Sub LoopMenu(ByVal Parent As Menu)

Dim getname As String
Dim mnuChild As MenuItem
For Each mnuChild In Parent.MenuItems
getname = mnuChild.Name
Call LoopMenu(mnuChild)
Next
End Sub
End Class

2.

Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Me.SetMenuItemStates(MainMenu1.MenuItems)
End Sub

Private Sub SetMenuItemStates(ByVal items As MainMenu.MenuItemCollection)
Dim a As String

For Each item As MenuItem In items

a = item.Name

Me.SetMenuItemStates(MainMenu1.MenuItems)
Next item
End Sub

--------------------------------------
I have two code.. but both of them are not working at all..

I want to get name in tmmenu from mainmenu.

ex) mainmenu

fruit (this is menu)
-> banana(textname) a1 (name)
-> melon(textname) a2 (name)
-> apple(textname) a3 (name)

Can you help me to correct this code?

Can you help me to correct this code?