你自己测试吧，这样印象深刻，代码如下：
Private Sub Form_Load() For i = 1 To 10 List1.AddItem i NextEnd SubPrivate Sub List1_Click() MsgBox List1.Text MsgBox List1.List(List1.ListIndex)End Sub
