18-11-17, 02:29 PM
18-11-17, 02:31 PM
وعليكم السلام
هكذا يتم نقل المحتوى
هكذا يتم نقل المحتوى
كود :
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