>run and resize the form
>

>PUBLIC oform1
>
>oform1=NEWOBJECT("form1")
>oform1.Show
>RETURN
>
>DEFINE CLASS form1 AS form
>
>
>	Height = 250
>	Width = 136
>	DoCreate = .T.
>	Caption = "Form1"
>	Name = "Form1"
>
>
>	ADD OBJECT combo1 AS combobox WITH ;
>		ColumnCount = 2, ; && it has to be upper to 1
>		RowSourceType = 1, ;
>		RowSource = "aaaaaaaaaaaaaa1,,bbbbbbbbbb2,,cc3", ;
>		ColumnLines = .F., ;
>		Left = 12, ;
>		Top = 28, ;
>		Width = 100, ;
>		Name = "Combo1"
>
>
>	PROCEDURE combo1.DropDown
>		this.ColumnWidths = LTRIM(STR(this.Width-23))+',0'
>	ENDPROC
>
>	PROCEDURE resize
>		this.combo1.width=MAX(0, this.width-24)
>ENDDEFINE
>

It works in VFP9. In VFP8 it remains the same width as the first time you Drop Down the combo.