Controlli - Aprire Un Combo Per Via Di Un PULSANTE

Combo # Form:
Private Sub Command1_Click()
Dim r As Long
r = SendMessageLong(Combo1.hwnd, CB_SHOWDROPDOWN, True, 0)
End Sub

Private Sub Form_Load()
Combo1.AddItem "Item 1"
Combo1.AddItem "Item 2"
Combo1.AddItem "Item 3"
End Sub

Modulo BAS
'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

Declare Function SendMessageLong Lib "user32" Alias "SendMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, lParam As Any) As Long
Public Const CB_SHOWDROPDOWN = &H14F