Перенос данных с list1 - VB

Формулировка задачи:

Здравствуйте. Подскажите пожалуйста как перенести данные с list1 в Text1 Делаю так но мне оно не подходит text1.text=list1.list(0)+vbCrLf+list1.list(1)+vbCrLf+list1.list(2) Как можно это сделать по другому. Спасибо заранее за ответ.

Решение задачи: «Перенос данных с list1»

textual
                            Листинг программы 
                        

                            Dim q As Integer
For q = 0 To List1.ListCount - 1
RichTextBox1.Text = Text1.Text + Space(150) + Text2.Text + vbCrLf + vbCrLf + vbCrLf + Text3.Text + vbCrLf + vbCrLf + Text4.Text + vbCrLf + Space(80) + Text5.Text + vbCrLf + vbCrLf + Text6.Text _
+ vbCrLf + List1.List(q) & vbCrLf
Next
                        