Option Explicit
Private Const CB_SETDROPPEDWIDTH As Long = &H160
Private Const CB_SETITEMHEIGHT As Long = &H153
Private Declare Function SendMessage Lib "user32.dll" Alias "SendMessageA" ( _
  ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, ByRef lParam As _
  Any) As Long
 
Private Sub Command1_Click()
SendMessage Combo1.hwnd, CB_SETDROPPEDWIDTH, 400, 0&
End Sub

#######
ICQ: 192-576-074
http://codinglukas.co.funpic.de/

Wer fragt ist ein Narr - f?r 5 Minuten.
Wer nicht fragt ist ein Narr - sein Leben lang.
Quarks&Co