[kslawy]

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

كود :

Private Sub EnabeldMenuStripControls(ByVal b As Boolean)
        Dim MS As ToolStripMenuItem
        Try


            For Each MS In MenuStrip1.Items
                If MS.HasDropDownItems Then
                    For Each m As ToolStripMenuItem In MS.DropDown.Items
                        m.Enabled = b
                    Next
                End If
            Next


        Catch ex As Exception
            MsgBox(ex.Message, MsgBoxStyle.Exclamation, Me.Text)
        End Try
    End Sub

****
***
**
*