کپی اطلاعات لیست باکس 1 به لیست باکس 2

[Silver PC]

سلام
هر کس جواب سوال منو بلده دریغ نکنه چون برام حیاتیه
خوب حالا سوال
تو پروژه من 2 تا لیست باکس هست
من میخوام وقتی رو یه دکمه که تو پروژه قرار دادم کلیک کردم محتویات داخل لیست باکس اول کامل کامل به لیست باکس دوم کپی بشه
من باید چه کدی بنویسم ؟

 

[Silver Soft]

For i=1 To 5
  ListBoxSelectItem("SongList","i")
  ListBoxGetSelectedItems("SongList","a$,1")
  ListBoxAddItem("SongList1","a$")
Next i

البته شاید راه ساده دیگه ای هم باشه ولی من 2 سال هست که با بیلدر کار نکردم ، این رو هم به زور نوشتم ...

 

[nevercom]

[FONT=Courier New][SIZE=2][color=#000090][b]ListBoxGetItems[/b][/color]("ListBox","Items$,ItemsNum$,#,NumItem") 
[color=#000090][b]ListBoxAddItem[/b][/color]("ListBox1","Items$,#")[/SIZE][/FONT]