حذف تکراری بودن

[alirezash]

سلام دوستان عزیز . من داخل یک listbox اطلاعاتی بصورت زیر دارم
111
222
333
111
444
555
666
777
333
555
888
999
با چه دستوری میتونم داخل listbox 2 تکراری ها رو حذف کنم و نشون بدم
یعنی اگه از یک کلمه 2 تا یا بیشتر وجود داره فقط یکی رو نشون بده
111
222
333
444
555
666
777
888
999

[M.T.P]

با سلام:



Dim A As Integer
Dim B As Integer
Dim Found As Boolean
For A = 0 To List1.ListCount - 1
Found = False
For B = 0 To List2.ListCount - 1
If List2.List(B) = List1.List(A) Then Found = True
Next B
If Found = False Then List2.AddItem List1.List(A)
Next A