'WIN 9x
'Private Const WM_USER = &H400
'Private Const CB_SHOWDROPDOWN = WM_USER + 15
'WIN NT & >
Private Const CB_SHOWDROPDOWN As Long = &H14F
Private Declare Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, lParam As Any) As Long
Sub OpenComboList(ByRef oCbo As ComboBox)
Call SendMessage(oCbo.hwnd, CB_SHOWDROPDOWN, ByVal True, ByVal 0&)
End Sub
Sub CloseComboList(ByRef oCbo As ComboBox)
Call SendMessage(oCbo.hwnd, CB_SHOWDROPDOWN, ByVal False, ByVal 0&)
End Sub