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 |