*---------------------- Location Section ------------------------ * Library: Acustomcontrols.vcx * Class: Cboviscodes * Method: Adjustwidth() *----------------------- Usage Section -------------------------- *) Description: *) * Scope: Public * Parameters: *$ Usage: *$ * Returns: *--------------------- Maintenance Section ---------------------- * Change Log: * CREATED 08/23/2005 - NN (Ideas by Fabio Lunadron) * MODIFIED *---------------------------------------------------------------- WITH this #IF VERSION(2)<900 .ColumnCount = MAX(.ColumnCount,.BoundColumn, 2) #ENDIF IF .Width > 60 .ColumnWidths = LTRIM(STR(.Width-39))+ REPLICATE(',0',.ColumnCount-1) ENDIF ENDWITHThe only problem I have, if there are few items in combo (less than 10) and the combo's scrollbar doesn't appear. In this case the drop-down portion is the scrollbar width shorter than than the combo's width. So, I have to make my logic more sophisticated and take this case into consideration.