[RESOLVED] pull down the combo box

[zynder]

Why do you want a pulldown? Just asking...

Well, anyway just completing what Fazi started.

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


Private Sub Command1_Click()
    SendMessage Combo1.hwnd, CB_SHOWDROPDOWN, 1, 0
End Sub