مساعدة في اداة list box

هل جربت

list2.additem list1.text

شكرا على المرور اخي المتميز لكن هذا الكود يقوم بترحيل اخر مشترك تم تضليله انا اريد كافه المشتركين المضللين

السلام عليكم ورحمة الله..

ارجو ان يكون فيه مرادك اخي الكريم

Private Sub Command1_Click()
Dim i As Integer
With List1
    For i = 0 To .ListCount - 1
        If .Selected(.List(i)) Then
'// Do the Move (list2.addItem .list(i))... whatever...
        End If
    Next
End With
End Sub

شارك معنا في (عمل مشاريع برمجيه بمشاركة جميع الأعضاء هنا, مشاريع برمجية كاملة)

مشكور عزيزي meynot على الرد انا جربت الكود الي اعطيني اياه فما اشتغل عندي ولكن اكت الفكرة من الكود الي بعته وهدا هو وشغال 100 100

Dim i As Integer

With List1

For i = 0 To .ListCount - 1

If .Selected(i) = True Then

List2.AddItem .List(i)

End If

Next

End With

السلام عليكم ورحمة الله..

حياك الله اخي الكريم..

الكود لأخذ الفكره... ولو لم ارى اختلاف...