List的问题
vb6.0中的List （multiselect属性设置了2）
怎样用循环取出list 中的选中的项
赋值给一个text1.text

[解决办法]
for i=0 to list1.listcount-1
if list1.selected(i) then
text1.text=text1.text & vbcrlf & list1.list(i)
endif
next
[解决办法]
for i=0 to list1.listcount-1
if list1.selected(i) then
text1.text=text1.text & vbcrlf & list1.list(i)
endif
next