RECORRER Menu System.Windows.Forms.ToolStripMenuItem

    Private Sub RegistroItems()
        Dim Menu As System.Windows.Forms.ToolStripMenuItem
        Dim SubMenu As System.Windows.Forms.ToolStripDropDownItem
        Dim submenu_ As System.Windows.Forms.ToolStripItem
        Dim I, H As Integer
        Dim NombreControl, DescripcionControl As String
        Try
            objInformesRN = New InformesRN.InformesRN
            objInformesRN.InicializarBase()
            For Each Menu In Me.MenuStrip1.Items
                NombreControl = Menu.Name
                DescripcionControl = Menu.Tag
                If DescripcionControl = "" Then
                    DescripcionControl = "Menu,Sin Definir"
                End If
                objInformesRN.ControlesMenuInsertar(My.Application.IDAPLICACION, NombreControl, DescripcionControl)

                For I = 0 To Menu.DropDownItems.Count - 1
                    If Menu.DropDownItems.Item(I).GetType().FullName = "System.Windows.Forms.ToolStripMenuItem" Then '---->Menu
                        SubMenu = Menu.DropDownItems.Item(I) '--->opciones del menu

                        NombreControl = SubMenu.Name
                        DescripcionControl = SubMenu.Tag
                        If DescripcionControl = "" Then
                            DescripcionControl = "SubMenu,Sin Definir"
                        End If
                        objInformesRN.ControlesMenuInsertar(My.Application.IDAPLICACION, NombreControl, DescripcionControl)

                        For H = 0 To SubMenu.DropDownItems.Count - 1
                            If SubMenu.DropDownItems.Item(H).GetType().FullName = "System.Windows.Forms.ToolStripMenuItem" Then '---->Menu
                                submenu_ = SubMenu.DropDownItems.Item(H) '--->opciones del menu

                                NombreControl = submenu_.Name
                                DescripcionControl = submenu_.Tag
                                If DescripcionControl = "" Then
                                    DescripcionControl = "OpcMenu,Sin Definir"
                                End If
                                objInformesRN.ControlesMenuInsertar(My.Application.IDAPLICACION, NombreControl, DescripcionControl)
                            End If
                        Next
                    End If
                Next
            Next
        Catch ex As Exception
            MessageBox.Show("#ERROR RC002, No se pudo realizar el registro de los controles: " + ex.ToString)
        End Try

    End Sub