求助 VB 中组合框的使用

设置组合框的Style属性为2，仅允许用户从列表中选择内容。
但当遇到某种情况的时候需要对该组合框的文本内容清空。不是Clear！
类似于text=""。但组合框text为只读属性，没办法赋值。
有没有办法解决呢？

避免新输入的项目与已有项目重名。

在你原来的代码上修改了Command1_Click里的内容

代码如下：
'''''''''''''''''''''''''''''''''''''''''''

Private Sub Command1_Click()
If (Len(Combo1.Text) > 0) Then

For i = 0 To Combo1.ListCount - 1 '循环遍历组合框
If UCase(Combo1.List(i)) = UCase(Combo1.Text) Then '判断是否已经存在
MsgBox "已经存在：" & Combo1.Text '提示数据已经存在
Exit Sub '终止执行
End If

Next
Combo1.AddItem Combo1.Text

End If

Label1.Caption = Combo1.ListCount

End Sub

''''''''''''''''''''''''''''''''''''''''''''''''