See also Change the height of a ComboBox's dropdown area.

Private Sub Form_Load()
    ' Set the width for the dropdown list.
    SendMessage Combo1.hwnd, _
        CB_SETDROPPEDWIDTH, 310, 0

    ' Select the first choice.
    Combo1.ListIndex = 0
End Sub