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下拉菜单 |