题目
一个文本框，一个列表框，一个按钮

在文本框内输入文本，点击按钮添加至列表框，如果文本内容与列表框中的某一项重复则不能输入，求代码。

本人初学者，手头资料极为有限，请各位不吝赐教。

会
可是代码不会打，我想象的与正确的差距太大

Private Sub Command1_Click()
For i = 0 To List1.ListCount - 1 如果我将这里的ListCount - 1改为listindex，为什么结果就不对？
If Text1.Text = List1.List(i) Then Exit Sub
Next
List1.AddItem Text1.Text
End Sub