vb中的listbox有关问题

vb中的listbox问题
在listbox里添加
List1.AddItem 1
List1.AddItem 2
List1.AddItem 3
List1.AddItem 4
当点击listbox中的1时，textbox中显示1，点击2时显示2。

[解决办法]

VB code

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