[kslawy]

السلام عليكم ورحمة الله وبركاته

الــكــود بعـــد التعــديــــل :

كود :

Public Sub EnabeldMenuStripControls(ByVal b As Boolean)
        Dim MS As ToolStripMenuItem
        Try
            For Each MS In Me.MenuStrip1.Items
                If MS.HasDropDownItems Then
                    For Each m In MS.DropDownItems
                        If TypeOf m Is ToolStripMenuItem Then
                            m.Enabled = b
                        End If
                    Next
                End If
            Next
        Catch ex As Exception
            MsgBox(ex.Message, MsgBoxStyle.Exclamation, Me.Text)
        End Try
    End Sub

****
***
**
*