LOCAL Test AS FormWithACombobox m.Test = CREATEOBJECT("FormWithACombobox") m.Test.Show(1) DEFINE CLASS FormWithAComboBox AS Form ADD OBJECT ACombo AS Combobox WITH Left = 10, Top = 10 ADD OBJECT ATextField AS Textbox WITH Left = 10, Top= 40 ADD OBJECT DisplayCurrentValue AS Label WITH Left = 10, Top = 70, Autosize = .T., Caption = "Combo values will be shown here" DIMENSION ComboValues(1) FUNCTION ACombo.Init ALINES(Thisform.ComboValues, "One, Two, Three, Four", 1, ",") This.RowSourceType = 5 This.RowSource = "Thisform.ComboValues" ENDFUNC FUNCTION ACombo.Lostfocus Thisform.DisplayCurrentValue.Caption = TEXTMERGE("<<ALLTRIM(This.DisplayValue)>> (Value = '<<This.Value>>')") ENDFUNC ENDDEFINE