>anybody know how to find item in Combo Box ?, I try to use my program below but it does not work :
>
>For mCheck=1 to combo1.Listcount -1
> combo1.ListIndex = mcheck
> If combo1.text = txtFind.Text then
> msgbox "Found"
> Exit for
> End if
>Next mcheck

Your code has some errors. Try this instead:

With Combo1
  For mCheck = 0 to .ListCount -1
    If .List(mCheck) = txtFind.Text then
      msgbox "Found"
      exit for
    end if
  next mCheck
end with

You can use the API to search a list, too.

Best,

jody