'自动下拉 Option Explicit 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
Private Sub Form_Load() SendMessage Combo1.hwnd, CB_SHOWDROPDOWN, True, ByVal 0& End Sub'永远下拉可以用 Combo1+List1
'自动下拉
Option Explicit
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
Private Sub Form_Load()
SendMessage Combo1.hwnd, CB_SHOWDROPDOWN, True, ByVal 0&
End Sub'永远下拉可以用
Combo1+List1
在设计窗口中把combobox高度拉大。