Posted on January 5, 2009
1
2
3
4
5
6
7
8
9
10
11
12
13
| 'Controls - How to set the ComboBox DropDown List Width
Option Explicit
'Add a ComboBox to your form.
Private 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
Private Const CB_SETDROPPEDWIDTH = &H160
Private Sub Main()
Call SendMessageLong(Combo1.hwnd, CB_SETDROPPEDWIDTH, 190, 0)
End Sub |