Dim Liste() As String
 
Private Sub Command1_Click()
 List1.AddItem Text1.Text
End Sub
 
Private Sub Command2_Click()
ReDim Liste(0 To 0) As String
ReDim Preserve Liste(0 To i)
For i = 0 To List1.ListCount - 1
Liste(i) = Liste(i) + List1.List(i)
Next i
End Sub
 
Private Sub Command3_Click()
 
For i = i To 1
List2.AddItem Liste(i)
Next i
End Sub