强制combobox自动弹出下拉框

[vb]代码库

Const CB_SHOWDROPDOWN = &H14F
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


SendMessage combobox1.hwnd, CB_SHOWDROPDOWN, 1, 0   '强制弹出combobox1下拉菜单