Horizontal scroll bar for combobox

[da_silvy]

I haven't tested it, but it may work

Private Declare Function ShowScrollBar Lib "user32" Alias "ShowScrollBar" (ByVal hwnd As Long, ByVal wBar As Long, ByVal bShow As Long) As Long
Private Const SB_BOTH = 3
Private Const SB_HORZ = 0
Private Const SB_VERT = 1
ShowScrollBar Combo1.hwnd, SB_BOTH, 1