Const WM_USER = &H400
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
Long) As Long
Private Sub Combo1_KeyPress(KeyAscii As Integer)
Dim i As Long
If KeyAscii = 13 Then
i = SendMessage(Combo1.hwnd, CB_SHOWDROPDOWN, True, 0&)
End If
End Sub