[ابراهيم ايبو]

السلام عليكم ورحمة الله وبركاته
اخي  dasktop لااعرف كبف قرات في سؤالك listview بدل listBox 
والكود مع listbox اسهل لانه بامكانك جلب القيمة النصية مباشرة اما في  ال listview فهنا كانت المعضلة التي دوختني 
جرب تطبيق هذا الكود واستيدل  listBox بـ listview وشاهد الخطأ 

كود :

For Each strs As String In Listview1.Items
                  If Listview2.Items.Contains(strs) Then
                  Else
                      p = True
                  End If
              Next

لهذا قلت ان هذا الكود اتعبني
ناحية اخرى كما اشار اخي سعود الى انك تضع متغير من نوع Boolean  وهنا الخطأ لانه سوف يمر على اول عنصر وان لم يكن موجودا سيجعل القيمة false ثم يذهب العنصر التالي ويجده موجودا فيجعل قيمة المتغير true وبعدها يذهب الى العنصر الذي يليه ويجد انه غير موجود فيجعل قيمة المتغير بـ false مرة اخرى
الان بعد نهاية جملة الفور ستكون قيمة المتغير false وهذا يعني ان العنصر غير مشترك وهذا الخطأ بعينه