COMBOX中的项为什么无法删除?

Private Sub Combo1_KeyPress(KeyAscii As Integer)
x = Chr(KeyAscii)
temp = srzm + x
srzm = temp

For i = 0 To Combo1.ListCount - 1
hzpy = ""
For ii = 1 To Len(Combo1.List(i))
hzpy = hzpy & pinyin(Mid(Combo1.List(i), ii, 1))
Next ii
If InStr(hzpy, srzm) <> 1 Then
Combo3.RemoveItem i '操作后针对这句提示"无效的调用或参数"
End If

Next i
On Error Resume Next
Combo1.ListIndex = i
End Sub
Combo3.RemoveItem i '操作后针对这句提示"无效的调用或参数"

这句写错了,应该是Combo1.RemoveItem i

补充说明一下:
这段程序是用键盘敲字母来搜询下拉列表框的,列表框中的内容都是汉字的,所以看起来有些繁索,不好意思..

请各位DX解释得清楚些,谢谢....

COMBOX中的项为什么无法删除? 为什么我在combox添加不了数据？ C#高手请进：怎样动态绑定DataGridView中的combox列? VB中combox问题！ 为什么Outlook邮件中的附件无法保存？ 为什么无法删除MP3中的歌. 为什么百度mp3中的歌曲无法下载 C盘中的IE为什么无法删除~ EXCEL无法打印文档中的英文字母？为什么？ cad中的图案为什么我无法填充？