[صالح عبدالله]

السلام عليكم ورحمة الله وبركاته 
مشكلة أول مرة تحدث لي وهي يوجد لدي CheckedListBox1   ويوجد به قائمة المنتجات وقمت بوضع الكود التالي في حدث CheckedListBox1_Click المشكلة التي تحدث هي أن الفورم يغلق عند عمل اختيار لأي منتج من المنتجات ولم أعرف سبب حدوث ذلك شاكراً لكم إهتمامكم 

  Dim i3 As Integer

        For i3 = 0 To DataGridView1.Rows.Count - 1

            If DataGridView1.Rows(i3).Cells(0).Value.ToString = CheckedListBox1.GetItemText(CheckedListBox1.SelectedItem) Then

          MsgBox(" تم إدراج هذه المخالفة مسبقاً ")

                    Dim clickedIndex As Integer = CheckedListBox1.SelectedIndex

                    If clickedIndex >= 0 Then

                        CheckedListBox1.SetItemChecked(clickedIndex, False)

                    End If

                End If

            Next

[أبو خالد الشكري]

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

كود :

      Dim i3 As Integer
       Dim selectedItemText As String = CheckedListBox1.GetItemText(CheckedListBox1.SelectedItem)

       For i3 = 0 To DataGridView1.Rows.Count - 1
           Dim cellValue As Object = DataGridView1.Rows(i3).Cells(0).Value
           If cellValue IsNot Nothing AndAlso String.Equals(cellValue.ToString(), selectedItemText, StringComparison.OrdinalIgnoreCase) Then
               MsgBox("تم إدراج هذه المخالفة مسبقاً")

               Dim clickedIndex As Integer = CheckedListBox1.SelectedIndex
               If clickedIndex >= 0 Then
                   CheckedListBox1.SetItemChecked(clickedIndex, False)
               End If
               Exit For
           End If
       Next

[صالح عبدالله]

السلام عليكم ورحمة الله وبركاته
الشكر الجزيل لك على ردك ومتأسف لتأخري في الرد سوفأجرب الكود وأعطيك النتيجة بارك الله فيك

---

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


الشكر الجزيل لك الأستاذ أبو خالد الكود شغال 1000\1000

بارك الله فيك