急求送分，有两个listbox控件，怎么把listbox1里面的所有内容，放进listbox2.

[yjip]

急求送分，有两个listbox控件，怎么把listbox1里面的所有内容，放进listbox2.
用一个，Private Sub Command1_Click()事件
。

Private Sub Command1_Click()
If List1.ListIndex <> -1 Then
List2.AddItem List1.list(list1.listindex)
End If
End Sub只能把一个选择的内容进入listbox2.
请问，应怎么做才能把listbox1的所有内容放进listbox2里面

[kimurakenshin]

list中内容的添加
Private Sub Command1_Click()
List2.Clear
Dim i As Integer
For i = 0 To List1.ListCount - 1
List2.AddItem List1.List(i), i
Next i
End Sub

'combo与list差不多
Private Sub Combo1_DropDown() 'combo下拉事件
Combo2.Clear
Dim i As Integer
For i = 0 To Combo1.ListCount - 1
Combo2.AddItem Combo1.List(i), i
Next i
End Sub

[射天狼]

Private Sub Command1_Click()
Dim i As Long

For i = 0 To List1.ListCount - 1
List2.AddItem List1.List(i)
Next
End Sub

[lihonggen0]

Private Sub Command1_Click()
For i = 0 To List1.ListCount - 1
List2.AddItem List1.List(i)
Next i
End Sub

Private Sub Form_Load()
List1.AddItem "item 1"
List1.AddItem "item 2"
List1.AddItem "item 3"
List1.AddItem "item 4"

End Sub