I want to add a horizontal scrollbar to a combobox. I can't get the following
code to work. I can get the equivalent to work for listboxes, but the scrollbar
justs doesnt appear for comboboxes.
Any ideas on what I'm doing wrong?

Option Explicit
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
Const CB_SETDROPPEDWIDTH = &H160
Const CB_SETHORIZONTALEXTENT = &H15E
Private Sub Command1_Click()
'set dropped width to 300 pixels
SendMessage cbo1.hwnd, CB_SETDROPPEDWIDTH, 300, ByVal 0&
'add horizontal scrollbar
SendMessage cbo1.hwnd, CB_SETHORIZONTALEXTENT, 400, ByVal 0&
End Sub