应该不算难的有关问题，大家来帮忙看看

应该不算难的问题，大家来帮忙看看啊
已知道combo控件内有以下4种数据
combo   item[ "我我我 "]
combo   item[ "的的的 "]
combo   item[ "他他他 "]
combo   item[ "你你你 "]

我现在想实时监视combo控件内是否有   "的 "   字样出现
如果有的话就执行   之后...

还有有没有办法自动或者定时的去点击一个command按钮控件

------解决方案--------------------
Private Sub Command1_Click()

1、实时监视combo控件内是否有 "的 " 字样出现，如果有的话就执行 之后...

'用Instr函数判断有没有制定的字符，返回值是字符的位置

For i = 0 To 3

IF InStr(Combo1.List(i), "的 ") then

'你要执行的代码
exit sub

END IF

Next i
End Sub

2、定时点击一个按钮

在timer控件中或直接 Call Command1_Click 就可以

------解决方案--------------------
Private Sub Combo1_Change()
If InStr(Combo1.Text, "的 ") Then MsgBox "Have "
End Sub
在Change 事件里面检测输入字符是否有 "的 "


在LOAD里面检测初始化是否有 "的 "
Private Sub Form_Load()
Dim intIi As Integer
For intIi = 0 To Combo1.ListCount - 1
If InStr(Combo1.List(intIi), "的 ") Then MsgBox "Have "

Next
End Sub