Question

vb 把text的内容加入到list里的问题

For i = 0 To 3
s = s & vbCrLf & i
Next
List1.AddItem s
加入之后是一行的，我知道只要把List1.AddItem s放到循环里就可以修正，但因为个人需要，我只能求各位高手看看怎么弄才能陈功的把s的内容分为多行加入到list里，而不是只成为一行

Answer 1

For i=0 to 3
s=s & vbCrLf & i
Next
Dim s2() as String,Index as Integer
s2=Split(s,vbCrLf)
For Index=0 to UBound(s2)
List1.Additem s2(Index)
Next