求教Combo控件编程的技巧

Question

要实现下面的功能：1、当Combo获得焦点的时候，自动弹出下拉列表
2、捕获选定Combo中某一项时的事件，执行一段代码可能要用API实现，我不懂API，请各位帮忙，最好能给一个简单的代码实例，谢谢！

Answer 1

http://www.baidu.com/s?ie=gb2312&bs=combobox+vb&sr=&z=&cl=3&f=8&wd=combobox+vb6&ct=0

Answer 2

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_SHOWDROPDOWN = &H14F打开下拉列表，使用：
SendMessage Combo1.hwnd, CB_SHOWDROPDOWN, 1, ByVal 0&
关闭下拉列表，使用：
SendMessage Combo1.hwnd, CB_SHOWDROPDOWN, 0, ByVal 0&

Answer 3

2、捕获选定Combo中某一项时的事件，执行一段代码Private Sub Combo1_Click()
    '你要执行的代码
End Sub