esta es una solucion es hecho en chile
Private Sub MDIParent1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Call Pr_Recorrer_Menu(Me.MenuStrip)
End Sub
Sub Pr_Recorrer_Menu(ByVal oMenu As MenuStrip)
Try
For Each oOpcionMenu As ToolStripMenuItem In oMenu.Items
'' el oOpcionMenu contiene todo los submenu
'' entonces tengo me+ menustrip+(menu_primeralinea)+(submenudropdownitem s)
Dim menu As String = oOpcionMenu.Name.ToString
For i As Integer = 0 To oOpcionMenu.DropDownItems.Count - 1
Dim submenu As String = oOpcionMenu.DropDownItems.Item(i).Name.ToString
Dim valor As Boolean = False
'codigo con base de datos padre hijo etc + un boolean o bit en base
oOpcionMenu.DropDownItems.Item(submenu).ForeColor = Color.Cyan
oOpcionMenu.DropDownItems.Item(submenu).Enabled = valor
'Me.Mnu_Archivo.DropDownItems.Item(i).Enabled = False
Next
Next
Catch ex As Exception
MessageBox.Show(ex.Message)
End Try
End Sub
'si tiene trabajo para mi ya que vuelvo a la cesantia
'
[email protected]
'profesional microsoft it certificado...
'creen un mdi nuevo y generen menu al gusto del usuario despues reccorranlo , y solamente faltaria su ingenio