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, ; RowSourceType = 1, ; RowSource = "aaaaaaaaaaaaaa1,,bbbbbbbbbb2,,cc3", ; ColumnLines = .F., ; Left = 12, ; Top = 28, ; Width = 100, ; Name = "Combo1" PROCEDURE combo1.DropDown #IF VERSION(2)<900 this.ColumnCount = 2 && this.ColumnCount #ENDIF this.ColumnWidths = LTRIM(STR(this.Width-23))+',0' ENDPROC PROCEDURE resize this.combo1.width=MAX(0, this.width-24) ENDDEFINE