[محمد اسماعيل]

اريد فحص اذا تم تحديد وعمل شيك لاي عنصر من عناصر الاداة اذاتم اختيار عنصر واحد او لم يتم اختيار اي عنصر  بحيث لو لم يتم اختيار عنصر واحد تظهر الاداة ولايخرج منها الا بعد اختيار عنصر منها



استخدمت الكود التالي ولم يعمل معي


 Dim itemChecked As Object
            For Each itemChecked In CheckedListBox1.CheckedItems
                If itemChecked = False Then
                    CheckedListBox1.Visible = True
                    CheckedListBox1.Focus() : Exit Sub
                End If
            Next