Displaying listbox items in text1.text

[peet]

Private Sub Command1_Click()
    Dim i As Integer
    Text1.Text = ""
    For i = 0 To List1.ListCount - 1
        Text1.Text = Text1.Text & List1.List(i) & vbCrLf
    Next i
End Sub