vb中如何实现将list中的选中项显示在text中

加个list和text到form上,运行我的代码看
单击list,会显示在text里
===========
Private Sub Form_Load()
For i = 0 To 100
List1.AddItem i '循环向list添加101个测试数据
Next i
End Sub

Private Sub List1_Click()
Text1.Text = List1.List(List1.ListIndex)'单击list,会显示在text里
End Sub

加个list和text到form上,运行我的代码看
单击LIST,将选中的项显示在TEXT中

Private Sub List1_Click()
Text1.Text = List1
End Sub

这样就可以了