怎样把列表框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