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 Private Const CB_SETDROPPEDWIDTH = &H160
Private Sub Form_Load() SendMessage Combo1.hwnd, CB_SETDROPPEDWIDTH, 400, ByVal 0& End Sub