انتقال از لیست باکس به لیست باکس

[m.4.r.m]

با سلام خدمت دوستان
من می خوام یه سری اطلاعات مثل : a,b,c,d داخل لیست باکس 1 رو یکجا ارسال کنم به لیست باکس 2

کد برنامه چیه دوستان ؟

[arenaw]

سلام، با این کد تمام آیتم های لیست 1 + لیست ایندکس اون به لیست 2 انتقال پیدا میکنه


If Not List1.ListCount = 0 Then
List2.Clear
For i = 0 To List1.ListCount - 1
List2.AddItem List1.List(i)
Next
List2.ListIndex = List1.ListIndex
End If