Abrir ComboBox

¡Hola, amigos y amigas!

Estoy usando esta API para desplegar un Combo:

Private Declare Function SendMessageLong Lib "user32" Alias "SendMessageA"
(ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, ByVal lParam
As Long) As Long

Private Sub Command1_Click()
Dim Resp As Long
Resp = SendMessageLong(Combo1.hwnd, &H14F, True, 0)
End Sub

Funciona muy bien, hasta que deseo hacer mi selección... me obliga a usar el
'mouse' y no puedo usar las flechas del teclado para navergar el combo y
hacer mi selección. Aparentemente se ejecuta el evento "Click" cada vez que
presiono una flecha del teclado. Pensaba que este evento sólo se ejcutaba
con la tecla "Enter" y/o el Click del Mouse.

¿alguna sugerencia?

Saludos,

:o)
Carlos Antonio

Guía de netiquette del foro:
http://perso.wanadoo.es/rubenvigon/foro