可以!
Private Declare Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, lParam As Any) As LongConst CB_SHOWDROPDOWN = &H14F'下拉,相当于按下ALT-↓
rs = SendMessage(Combo1.hwnd, CB_SHOWDROPDOWN, True, 0)
'不下拉
'rs = SendMessage(Combo1.hwnd, CB_SHOWDROPDOWN, False, 0)