[sooriaty03]

السلام عليكم
أخي الكريم الخطأ الذي وقعت به هو أنك حددت نوع المتغير كمتغير من نوع ToolStripMenuItem
الحل:
امسح التحديد وسيعمل الكود بشكل جيد

وهذا هو الكود بعد الحذف

كود :

Public Sub EnabeldMenuStripControls(ByVal b As Boolean)
       Try
            For Each MS1 In MainFm.MenuStrip1.Items
                If MS1.HasDropDownItems Then
                    For Each m In MS.DropDown.Items
                        m.Enabled = b
                    Next
                End If
            Next
        Catch ex As Exception
            MsgBox(ex.Message, MsgBoxStyle.Exclamation, MainFm.Text)
        End Try
    End Sub