[dasktop]

نجح الكود التالي اذا تحققنا يدوياً عند الضغط على الزر

والمشكلة اذا وضعنا الكود في اداة ال background واصبح التحقق تلقائياً  لايعمل الكود !

علماً ان في listbox1 كلمات وارقام يتم اضافتها عن طريق background  رقم 2 

وفي listbox2 حروف وارقام ثابته لاتتغير 

والهدف من المقارنه لمعرفة اذا يوجد في listobx 1 سطر لايوجد في listbox2 يضهر رساله 

فكيف نجعل الكود يعمل في اداة 

كود :

               Dim p As Boolean
               For Each strs As String In ListBox1.Items
                   If ListBox2.Items.Contains(strs) Then
                   Else
                       p = True
                   End If
               Next

               If p = True Then
                   MsgBox("no", MsgBoxStyle.Exclamation)
               End If
           
           End If