Posted on January 5, 2009
1
2
3
4
5
6
7
8
9
10
11
12
13
| 'Controls - How to show the Drop Down of ComboBox List
Option Explicit
'Insert a ComboBox to your form
Public 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
Public Const CB_SHOWDROPDOWN = &H14F
Private Sub Form_Load()
Call SendMessageLong(Combo1.hwnd, CB_SHOWDROPDOWN, True, 0)
End Sub |