Sorry (the 1st reply seems to have the wrong format)
Sandy,
for this case usually I change the cbo.rowsourcetype to 0-none and on Init Event put :

WITH THIS

Select (fieldname) to array transfer

mwid=0

FOR i=1 TO _TALLY
FOR j=1 TO ALEN('transfer',2)-1
.ADDLISTITEM(transfer(i,j),i,j)
.COLUMNCOUNT=ALEN('transfer',2)
ENDFOR

IF mwid mwid=LEN(ALLT(transfer(i,2))
ENDIF
ENDFOR

RELEASE transfer

.WIDTH=mwid*8 &&&(If You use all Upper Case Character You should put mwid*9)

ENDWITH


Hope this can help

Senna Dwipayana
Being good is better
Being better is a bless