Public Class Form1 Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load Me.SetMenuItemStates(Me.MainMenu1.MenuItems) End Sub Private Sub SetMenuItemStates(ByVal items As MenuItem.MenuItemCollection) Dim fruit_name As String For Each item As MainMenu In items fruit_name = item.Name Next item End Sub End Class
End If
For Each
If
Me.Controls
var
This content, along with any associated source code and files, is licensed under The Code Project Open License (CPOL)