[الاصيله]

وعليكم السلام

هكذا يتم نقل المحتوى

كود :

Private Sub Command1_Click()
Dim Amove As Integer
   
   Amove = 0
   
   Do While List1.ListCount > 0
       List2.AddItem List1.List(0)
       List1.RemoveItem 0
   Loop
End Sub