怎么把listbox中每一行内容读取出来 并分行显示到text中

如何把listbox中每一行内容读取出来 并分行显示到text中啊
如何把listbox中每一行内容读取出来   并分行显示到text中啊

[解决办法]
dim i as long
dim s as string
for i=0 to list1.listcount-1
s=s&list1.list(i)&vbcrlf
next
text1.text=s