'When the focused, combo automatically drop down Private Declare Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, lParam As Any) As LongPrivate Const CB_SHOWDROPDOWN = & H14FPrivate Sub BoxDropDown (Box As ComboBox, Optional BLNIF As Boolean "function: When the focus is getting focus, Combo automatically drops' parameters: Box Combo Align BLNIF = true Open list BLNIF = FALSE Close list SendMessage Combo1.hwnd, & H14F, BLNIF, 0nd Sub
