怎么使用sendmessage发送消息选择另一程序列表框中的其中一项内容

如何使用sendmessage发送消息选择另一程序列表框中的其中一项内容!
我想要通过程序设置另一个程序中的列表框选择项目，请问下该怎么实现。

------解决方案--------------------
先用findwindow findwindowex获得列表框的句柄，然后用sendmessage发送LB_SETCURSEL消息即可:

SendMessage(mhWnd, LB_SETCURSEL, NewIndex, 0&) ' NewIndex从0开始，就是说想选中第1项，NewIndex=0，想选中第2项，NewIndex=1.....


------解决方案--------------------

Private Declare Function SendMessage Lib "user32 " Alias "SendMessageA " (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, lParam As Any) As Long
Private Const CB_SETCURSEL = &H14E

Private Sub Command1_Click()
SendMessage Combo1.hwnd, CB_SETCURSEL, NewIndex, 3&
End Sub

Private Sub Form_Load()
Combo1.AddItem "123 "
Combo1.AddItem "456 "
Combo1.AddItem "789 "
Combo1.AddItem "qwe "

End Sub