怎么让Combox弹出列表？？

Question

请问如何实现当单击一个按钮让combo弹出列表（像用鼠标按了那个向下的三角形一样）

Answer 1

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 LongPrivate Const CB_SHOWDROPDOWN = &H14F
Private Sub Command1_Click()
 SendMessage Combo1.hwnd, CB_SHOWDROPDOWN, True, 0
End SubPrivate Sub Form_Load()
 With Me.Combo1
    .AddItem "111"
    .AddItem "222"
    .AddItem "333"
 End With
End Sub

Answer 2

Option ExplicitPrivate Sub Command1_Click()
    Combo1.SetFocus
    SendKeys "{F4}"
End Sub
----------------
有人问过的。