حذف چند عبارت از لیست باکس با مقایسه

[hackershz]

سلام و خسته نباشید به دوستان

بنده دو تا لیست باکس توی برنامه دارم، لیست باکس 1، لیست باکس 2

میخوام عبارت هایی که داخل لیست باکس 2 هست اگر داخل لیست باکس یک باشه . کلا پاک بشه ( لیست باکس 1)

مثلا لیست باکس1
1
2
3
4
5

لیست باکس دو
1
22
33
55
66
2
=============

حالا لیست باکس اول باید 1 و 2 رو حذف کنه

لطفا راهنمایی بفرمایید

[Mori Bone]

Dim i As Byte, j As Byte
For i = 0 To List2.ListCount - 1
For j = 0 To List1.ListCount - 1
If List2.List(i) = List1.List(j) Then
List2.RemoveItem i
Exit For
Next
Next j
Next i

[hackershz]

سلام و تشکر از شما

متاسفانه با ارور مواجه شدم


next without for

[vbhamed]

سلام
Dim i As Byte, j As Byte

For i = 0 To List2.ListCount - 1

For j = 0 To List1.ListCount - 1
If List2.List(i) = List1.List(j) Then
List2.RemoveItem i
Exit For
End If

Next

Next