Exibindo a lista de uma Combobox do VB com API

Este código exibe a lista de uma combo no ganho do foco mediante o uso da API SendMessage.

Declarações:

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

Private Const CB_SHOWDROPDOWN = &H14F

Código:

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