La larghezza della tendina del combo la determini (in PIXEL) con

codice:
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
e quindi con la chiamata

codice:
    SendMessage Combo1.hwnd, CB_SETDROPPEDWIDTH, 100, 0
in cui 100 e' la larghezza prescelta in PIXEL. Questa dipende dalla grandezza del piu' largo testo e dal font prescelto. Questa larghezza puo' essere calcolata in base a queste informazioni in precedenza e settata al momento del click, oppure puoi assegnarla con un valore fisso grande abbastanza.