我初学vb，这个编码总是错，请大家帮我看一下错在哪？

Private Sub Form_mousedown(button As Integer, shift As Integer, x As Single, y As Single)
If button = 1 Then
Text1.Text = InputBox("请输入要添加的项目")
'list1.additem=text1.text
End If
If button = 2 Then
Text1.Text = InputBox("请输入要删除的项目")
'for i=0 to list1,listcount-1
'if list1.list(i)=text1.text
'list1.romoveitem i
End If
Next i
End If
End Sub
这个编码，一运行，就缺少next的for语句，我比照的答案的，因为自学，所以也不懂，能麻烦帮我找一下错么？谢谢！