CboDropWidth

Private Declare Function SendMessage Lib "user32" _
Alias "SendMessageA" (ByVal hwnd As Long, _
ByVal wMsg As Long, ByVal wParam As Long, _
lParam As Long) As Long
Private Const CB_SETDROPPEDWIDTH = &H160
Private Sub Form_Load()
SendMessage cboState.hwnd, CB_SETDROPPEDWIDTH, 135, 0
End Sub