怎样把列表框List1的内容移动到文本框Text1内呢？
Private Sub Form_Load()
List1.AddItem ("123456789 1")
List1.AddItem ("123456789 2")
List1.AddItem ("123456789 3")
List1.AddItem ("123456789 4")
List1.AddItem ("123456789 5")
List1.AddItem ("123456789 6")
List1.AddItem ("123456789 7")
List1.AddItem ("123456789 8")
List1.AddItem ("123456789 9")
List1.AddItem ("123456789 10")
List1.AddItem ("123456789 11")
List1.AddItem ("123456789 12")
List1.AddItem ("123456789 13")
List1.AddItem ("123456789 13")
List1.AddItem ("123456789 14")
End Sub

Dim i As Integer
For i = 0 To List1.ListCount - 1
Text1 = Text1 + List1.List(i) + vbCrLf
Next i

[此贴子已经被作者于2007-3-1 17:54:02编辑过]

谢谢！！