Drop Down The ComboBox List

'Add a module to your project (In the menu choose Project -> Add Module, Then click Open)
'Insert 1 ComboBox to your form (named Combo1).
'Insert this code to the module :

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

'Insert the following code to your form:

Private Sub Form_Load()
r = SendMessageLong(Combo1.hwnd, CB_SHOWDROPDOWN, True, 0)
End Sub

Go Back